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ABSTRACT 


1 

The  computerized  Qulck-Reactlng  General  War  Gaming  System  (QUICK)  will 
accept  input  data,  automatically  generate  global  strategic  nuclear  war 
plans,  provide  output  summaries,  and  produce  tapes  to  simulator  subsys- 
tems external  to  QUICK.  QUICK  has  been  progranmed  In  FORTRAN  for  use 
on  the  CCTC  HIS  6000  computer  system. 

The  QUICK  Maintenance  Manual  consists  of  four  volumes:  --^Volume  I,  Data 
Management  Subsystem;  Volume  II,  Weapon/Target  Identification  Subsystem; 
Volume  III,  Weapon  Allocation  Subsystem,  Volume  IV,  Sortie  Generation 
Subsystem.  <^he  Maintenance  Manual  complements  the  other  QUICK  Computer 
System  Manuals  to  facilitate  application  of  the  war  gaming  system.  This 
volvime,  Volume  I In  two  parts,  provides  the  programmer/analyst  with  a 
technical  description  of  the  purpose,  functions,  general  procedures,  and 
programming  techniques  applicable  to  the  modules  (programs)  and  subrou- 
tines of  the  Data  Management  subsystem.  Companion  documents  are: 

a.  USERS  MANUAL 

Computer  System  Manual  CSM  UM  9-77,  Volume  I 

Computer  System  Manual  CSM  UM  9-77,  Volume  II 

Computer  System  Manual  CSM  UM  9-74,  Volume  III 

Computer  System  Manual  CSM  UM  9-74,  Volume  IV 

Provides  detailed  Instructions  for  applications  of  the  system 

b . TECHNICAL  MEMORANDUM 
Technical  Memorandum  TM  153-77 

Provides  a nontechnical  description  of  the  system  for  senior 
management  personnel 
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SECTION  6.  REPORT  MODULE 


6.1  Purpose 

The  purpose  of  the  REPORT  module  is  to  give  the  user/analyst  the  capa-  I 

blllty  to  produce  ad  hoc  print  reports.  REPORT  is  capable  of  addressing 
any  set  of  attributes  In  the  QUICK  Integrated  data  base  and  displaying 
them,  plus  any  arlthemetlc  calculations  upon  them.  In  virtually  any  for- 
mat the  user  desires.  ^ 

6.2  Input  I 

The  precondition  of  the  data  base  required  Is  the  obvious  one  that  non- 

entered  data  cannot  be  displayed.  The  PRINT  verb  does  require  the  prior  | 

execution  of  a DESIGN  verb  so  that  a display  table  exists  In  the  data 

base. 

6.3  Output  j 

i 

Execution  of  a DESIGN  or  an  ALTER  verb  will  cause  a display  table  to  be 

built  and  retained  within  the  data  base.  Ihe  composition  of  a display 

table  Is  shown  In  table  18.  j 

6.4  Concept  of  Operation 

1 

REPORT  recognizes  three  verbs:  DESIGN,  PRINT,  and  ALTER.  I 

The  DESIGN  verb  Is  used  to  specify  the  format  and  sort  to  be  used  to 
display  the  data,  the  calculated  variables  to  be  included  and  the  subset 
of  the  data  base  to  be  used.  Further  the  user  may  give  the  display  a 
none  so  that  It  Is  retained  In  the  data  base. 

The  PRINT  verb  produces  the  display  the  user  has  designed.  In  addition, 
the  user  may  specify  a different  data  base  with  the  PRINT  verb. 

The  ALTER  verb  Is  used  to  make  changes  to  an  existing  saved  'display*  or 
to  construct  a new  'display*  from  a previous  one. 

Subroutines  (or  overlays)  DESIGN  or  ALTER  build  a set  of  utility  tables 
which  may  be  used  to  create  a display.  Upon  table  construction,  sub- 
routine DSPMAK  Is  called  to  create  the  display.  For  the  PRINT  verb 
Input,  subroutine  PRINCE  will  control  the  printing  of  the  display 
desired. 

i 

As  with  other  modules  within  the  Data  Management  subsystem,  data  Input  \ 

varies  according  to  the  user's  needs  and  Is  generalized  to  the  degree  I 

possible.  Since  inputs  do  permit  variability,  an  understanding  of  the  | 

Implemented  code  can  only  be  possible  If  the  techniques  of  Input  defini- 
tions are  understood.  Section  7 of  the  Users  Manual,  Volume  I,  details  ’ 
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Table  18.  Display  Table  Composition  (Part  1 of  2) 


A display  table  consists  of  the  following  elements  the  exact  length  and 
composition  of  most  elements  varies  from  table-to-table. 


RTJrMRTTr 

1 

2 

3 


4 


5 

6 

7 


8 

9 

10 


DESCRIPTION 


The  display  header  - contents  of  common  block  DSPHED 
(see  table  19) 

DEFINE  Names.  Two  words  for  each  DEFINE 

DEFINE  Type,  One  word  for  each  DEFINE 

“1,  Normal 

■2,  Special 

■3,  Sum 

=4,  Product 

DEFINE  Mode.  One  word  for  each  DEFINE 

=1,  Integer 

=2,  Floating  point 

DEFINE  Print/Sort  record  position 

Number  of  words  In  execution  instructions  for  DEFINE 
(one  word  for  each  DEFINE) 

Execution  Instructions  for  DEFINES.  One  set  of  Instruc- 
tions for  each  DEFINE  the  length  of  which  is  defined 
In  element  6 

Attribute  common  block  address.  One  word  for  each  dis- 
play attribute 

Attribute  Print/Sort  record  position.  One  word  for 
each  display  attribute 

Sort  Scheme.  Length  of  the  scheme  Is  shown  In  element 

1.  A sort  scheme  Is  a sequence  of  sets  of  three  words. 
Word  1=1,  ascending 
= 2,  descending 

Word  2 = Print/Sort  record  position 
Word  3=1,  Integer 

2,  Alphabetic 

3,  Floating  Point 

The  order  of  the  triples  is  major  to  minor 
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ELEMENT 

11 

12 

13 


14 

15 

16 


Table  18.  (Part  2 of  2) 


DESCRIPTION 

WHERE  Clause.  Length  of  the  clause  Is  shown  In  element 
1 

Retrieval  Scheme.  Length  of  the  scheme  Is  shown  In 
element  1 

Print  Scheme.  Length  of  the  scheme  is  shown  in 
element  1.  A print  scheme  is  a sequence  of  items 
which  are  of  two  types:  page  and  nonpage.  A page 
item  has  four  words: 

Word  1 “ 1 

Word  2 - Number  of  headers  on  page 
Word  3 “ Number  of  trailers  on  page 

Word  4 * Number  of  physical  lines  produced  by  trailers 

A nonpage  item  has  a variable  number  of  words: 

Word  1=2,  for  header 
=3,  fi)r  trailer 

= 4,  for  line  idtlch  produces  a single  logical 
line 

= 5,  for  line  which  produces  a number  of  logi- 
cal lines 

Word  2 = Number  of  print  elements 
Word  3 = Number  of  words  in  the  format 
Word  4 = Nuod^er  of  physical  lines  per  logical  line 
Word  4 is  followed  by  two  sets  of  words.  Each  set  has 
one  entry  for  each  print  element 
First  set  = 1,  attribute 
= 2,  DEFINE 
= 3,  Page  Number 

Second  set  - Print/sort  record  position  for  attribute 

- Identifying  number  for  DEFINE 

- Zero  for  page  nuniber 
These  sets  are  followed  by  the  format 

Input  instructions  for  DEFINE  clauses.  Total  length 
is  shown  in  element  1 

SORT  clause.  Length  is  shown  in  element  1 
FORMAT  clause.  Length  is  shown  in  element  1 
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all  Inputs.  Special  coinnents  concerning  the  construction  of  the  Imple- 
mented print  scheme  and  the  use  of  'utility  tables'  follows. 


i 

1 

1 

[i 

• j 

•i 


6.4.1  Print  Scheme.  The  print  scheme  Is  created  by  DSPMAK  and  executed 
by  PRINCE.  Its  form  Is  outlined  In  table  18  (element  13).  DSPMAK 
builds  the  scheme  from  the  FORMAT  clause.  This  clause  has  a series  of 
Identifying  'Items'  labeled  PAGE,  HEADER,  TRAILER,  and  LINE.  Of  these, 
PAGE  defines  a logical  set  of  the  others  up  to  the  next  PAGE  Item.  If 
no  PAGE  Item  exists,  all  HEADER,  TRAILER  and  LINE  Items  are  said  to  be 
part  of  one  PACT!.  Each  HEADER,  TRAILER  or  LINE  Is  followed  by  a series 
of  phrases  which  are  one  of  the  following: 

o attribute 
o DEFINE  name 

o IN  (followed  by  a FORTRAN  format,  l.e.,  F10.2) 
o alphabetic 
o long  string 

o numeric  (followed  by  the  special  words  X or  SPACES) 
o PAGENO,  a special  word 

These  phrases  are  used  to  create  the  print  element  tables  (element  13  of 
table  18)  and  the  item's  format.  Print  element  tables  are  formed  from 
attributes,  DEFINE  names  and  PAGENO.  The  tables  Identify  the  element 
and  give  the  Information  necessary  to  retrieve  the  data  value  that  is 
to  be  displayed.  An  attribute  causes  an  addition  to  the  format  in  one 
of  three  ways.  First,  If  it  Is  followed  by  an  'IN'  phrase,  the  phrase 
provides  the  format  to  be  Inserted.  Second,  If  the  upper  and  lower  edit 
ranges  differ,  the  upper  is  used  as  a measure  of  the  attribute's  size 
and  a format  added  accordingly.  Third,  one  of  the  default  formats  (A7, 
17,  or  F9.3)  Is  used.  A DEFINE  name  Is  treated  similarly  except  that 
the  second  option  Is  not  available.  Alphabetlcs  and  long  strings  both 
are  treated  In  a similar  fashion.  The  length  of  the  string  Is  used  to 
create  an  'H'  type  format  (l.e.,  30X).  If  either  an  alphabetic,  long 
string  or  space  format  exceeds  the  line  length.  It  Is  truncated. 

Finally  a PAGENO  special  word  adds  the  format  13. 

In  the  process  of  building  the  print  element  tables  and  format  for  a 
LINE  Item  it  is  determined  whether  the  LINE  Is  a multiple  or  single 
line.  If  It  contains  an  attribute  or  a normal  DEFINE  It  is  a multiple. 
DEFINES  are  of  the  following  types: 

o Sums  - contain  reference  to  their  own  name  In  an  add  or  sub- 
tract operation 

o Products  - contain  reference  to  their  own  name  In  a multiply, 
divide  or  power  operation 

o Specials  - contain  no  reference  to  their  own  name  but  reference 
a Sum  or  Product 

o Normal  - all  other  DEFINES 


6.4.2  Utility  Tables.  The  subroutine  TABMNT  creates,  maintains,  and 
deletes  a set  of  utility  tables.  These  are  arrays  which  TABMNT  can  keep 
Internally  for  a maximum  of  100  words.  If  more  space  Is  required  for 
the  table,  the  current  100  words  are  moved  Into  common  block  C40  and  a 
TABLEZ  record  created.  When  data  Is  desired  from  a particular  table, 
an  Index  Is  used  to  determine  which  set  of  100  words  contains  the 
desired  data.  The  appropriate  TABLEZ  record  Is  retrieved  If  necessary 
and  the  data  moved  from  C40  to  Internal  storage.  TABMNT  can  maintain 
up  to  five  utility  tables  each  of  which  can  contain  a maximum  of  1,000 
words.  The  tables  are  Identified  by  a number  from  one  to  five  (l.e., 
'utility  table  1').  Both  DESIGN  and  ALTER  use  these  tables  to  pass 
clauses  to  DSPMAK.  PRINT  uses  the  tables  to  build  a new  WHERE  clause 
and  to  retain  headers  and  trailers  while  executing  the  print  scheme. 

6.5  Identification  of  Subroutine  Functions 

6.5.1  Subroutine  DESIGN.  This  subroutine  (or  overlay)  carries  out  the 
function  of  building  a new  set  of  display  specifications  from  scratch. 
First  the  DISPLAY  clause  Is  read  and  the  display  table  set  for  construc- 
tion. The  SETTING  clause  Is  used  to  set  values.  Each  DEFINE  Is  scanned 
for  errors,  and  is  stored  in  a table.  The  WHERE,  SC®T,  and  FORMAT 
clauses  are  also  scanned  for  errors  and  saved  (see  figure  79). 

6.5.2  Subroutine  ALTER.  This  subroutine  (or  overlay)  makes  alterations 
to  old  displays  or  constructs  a new  display  based  upon  an  old  one. 

First  the  DISPLAY  clause  Is  used  to  find  the  old  display.  Then  each 
clause  of  the  old  display  is  either  saved  In  the  utility  tables  or 
replaced  by  a new  clause  which  has  been  Input.  The  old  FORMAT  clause 
may  have  portions  modified  according  to  user  Instructions.  Finally, 
the  new  display  table  Is  set  up  for  creation  or  the  old  one  deleted 
and  reset  depending  upon  the  DISPLAY  clause  option  selected  (see  figure 
80). 

6.5.3  Subroutine  DSPMAK.  This  subroutine  takes  the  utility  tables 

[ built  by  either  the  DESIGN  or  ALTER  subroutines  and  uses  them  to  con- 

[ struct  a display.  First  all  clauses  are  scanned  for  attributes.  Then 

[ the  attributes  collected  are  used  to  build  a retrieval  scheme.  (For 

details  of  this  process  see  section  4.4.)  DEFINES  are  placed  In  proper 
execution  order  and  their  execution  tables  (table  18,  elements  2-7)  are 
’ built.  The  WHERE  clause  Is  scanned  for  DEFINE  variables  and  altered 

accordingly.  The  sort  scheme  and  print  scheme  are  now  built.  Finally, 
all  the  constructed  elements  are  stored  In  the  data  base  as  a display 
table  (see  figure  81). 

6.5.4  Subroutine  PRINCE.  This  subroutine  prints  a specified  display. 
First  the  DISPLAY  clause  Is  used  to  find  the  desired  display  table  and 

I the  various  schemes  and  tables  are  read  from  the  display  table.  If  a 

new  WHERE  clause  has  been  Input  It  replaces  any  old  one.  The  retrieval 
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Figure  81.  Subroutine  DSIWAK  Macro  Flow  (Part  1 of  2) 

443 


scheme  Is  used  to  build  a file  of  the  desired  Information.  This  file 
Is  then  sorted  If  a sort  has  been  requested.  Finally,  the  print  scheme 
Is  executed  to  produce  the  desired  report  (see  figure  82). 

6.6  Common  Blocks 


Common  blocks  which  are  used  Internally  by  the  REPORT  module  are  dis- 
played In. table  19. 


Table  19,  REPORT  Module  Internal  Common  Blocks  (Part  1 of  3) 


BLOCK 

ARRAY  OR  VARIABLE 

DESCRIPTKW 

ATLST 

Provides  communication  with  the 
ATFNDR  utility  subroutine 

ATNUMB(IOO) 

Attribute's  Identifying  number 

ATADD(IOO) 

Attribute's  address 

ATTYP(IOO) 

Attribute's  mode  (■!,  Integer,  =2, 
alphabetic,  =3,  floating  point) 

ATRA(IOO) 

Attribute's  lower  limit 

ATRB(IOO) 

Attribute's  upper  limit 

NUMAT 

Number  of  attributes 

DEFNMZ 

DFNAME(IOO) 

DEFINE  variable  name 

DFPNT(IOO) 

Pointer  to  DEFINE  clause  in  utility 
table  1 

DEFVAR 

VARXX(IOO) 

Value  of  DEFINE  variable 

DSPFRM 

Provides  conmunlcatlon  with  FORMAK 
utility  subroutine 

FORMAR (50) 

Format  being  constructed 

IFPNT 

Pointer  to  next  character 

IFLNG 

Number  of  words  used 

DSPHED 

IDHEAD(15) 

Display  header,  each  word  Is  a 
separate  value  as  follows; 

IDHEAD(l) 

Page  length  (lines) 

IDHEAD(2) 

Line  length  (characters) 

IDHEAD(3) 

Report  code 

IDHEAD(4) 

Number  of  DEFINE  variables 

IDHEAD(5) 

Number  of  attributes 

IDHEAD(6) 

Length  of  sort  scheme  (words) 

IDHEAD(7) 

Length  of  WHERE  clause  (words) 

IDHEAD(8) 

Primary  header  record  type  number 

IDHEAD(9) 

Length  of  retrieval  scheme  (words) 
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Table  19.  (Part  2 of  3) 


BLOCK 

ARRAY  OR  VARIABLE 

DESCRIPTION 

DSPHED 

IDHEAD(IO) 

Length  of  print/sort  record  (words) 

(coht.) 

IDHEAD(ll) 

Nuiid>er  of  pages 

IDHEAD(12) 

Length  of  print  scheme  (words) 

IDHEAD(13) 

Length  of  all  DEFINE  clauses  (words) 

IDHEAD(14) 

Length  of  SORT  clause  (words) 

IDHEAD(15) 

Length  of  FORMAT  clause  (words) 

ft 

IDPT 

IDISPT 

Pointer  to  next  variable  word  In 
display  table 

NONPAG 

Used  internally  by  PRINCE  for  core 
position  only 

NITEMS 

Number  of  Items  In  line 

NFORMM 

Number  of  words  In  format 

NLINES 

Number  of  print  lines  produced 

OPCER 

SCHORD(IOO) 

Record  type  nunbers  in  retrieval 
scheme  order 

SORDNM(IOO) 

Record  type  names  In  retrieval 
scheme  order 

LENSCH 

Length,  In  words,  of  retrieval  scheme 

PAGPAG 

Used  internally  by  PRINCE  for  core 
position  only 

NUMHD 

Number  of  headers  In  page 

NUMTRL 

Number  of  trailers  In  page 

NTRLLN 

Number  of  lines  produced  by  trailers 

PRINSP 

PRINON 

Switch  to  control  optional  prints 
=True,  produce  print 
“False,  do  not  produce  print 

- 

PSCOM 

RECORD(IOO) 

Used  to  communicate  with  PSREC 
utility 

Body  of  print/sort  record 

- 

RECLEN 

Number  of  words  in  record 
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Table  19 


(Part  3 of  3) 


BLOCK 

RTLST 


SCHEIME 

SORSCH 

ZEES 


ARRAY  OR  VARIABLE 


RTLIST(IOO) 

NUMREC 

HDREC 

HCLASS 

HSIDE 

HOPT 

JHDR 

POINT 

SCHEME (200) 
SRTSCH(IOO) 


ZA 

ZB 

ZC 

ZD 

ZE 


) 

I 


DESCRIPTIOM 

Used  to  coaamlcate  with  ATFNDR 
utility  aubroutlne 

List  of  record  type  auBd>ers  for 
retrieval  scheae 

Nunfcer  of  record  types  In  RTLIST 
Record  type  naae  of  prlnary  header 
CLASS  value  of  primary  header 
SIDE  value  of  primary  header 
CLASS/SIDE  option  for  scheme 
Record  type  number  of  primary  header 

Points  to  current  instruction  of 
retrieval  scheme 

Retrieval  scheme  (see  UMI,  section 
5. 3. 2.4) 

Sort  scheme  (see  section  6.10) 

Used  Internally  by  several  routines 
for  core  position  only 

Equivalent  to  output  array  from 
INSGET 
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6.7  Subroutine  ENTMOD 


PURPOSE; 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 

CCTMPN  BLOCKS: 

SUBROUTINES  CALLED; 
rAT.T.ED  BY; 

Method; 

The  first  step  Is  to  obtain  the  verb  from  INSGET.  Next  the  adverbs  are 
scanned  to  see  if  the  ONPRINTS  adverb  Is  Included.  If  so,  the  PRINON 
switch  Is  set  to  true.  Now  the  subroutine  branches  based  on  the  verb 
and  retrieves  and  executes  the  overlay  for  DESIGN,  ALTER,  or  PRINCE. 

If  DESIGN  or  ALTER  are  called,  DSPMAK  is  called  when  they  return. 

Subroutine  ENT»«)D  (REPORT)  is  Illustrated  In  figure  83. 


Entry  module  for  REPORT 

ENTMOD  (first  subroutine  called  when  overlay 
REPORT  Is  executed) 

None 

DEFNMZ,  DSPHED,  OOPS,  PRINSP 

ALTER,  DESIGN,  DSPMAK,  INSGET,  PRINCE 

MODGET 
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Figure  83.  Subroutine  ENTMOD  (REPORT)  (Part  1 of  2) 
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Figure  83.  (Part  2 of  2) 
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6.7.1  Subroutine  DSPPUT 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COmOH  BLOCKS: 


CALLED  BY: 
Method; 


Build  and  retrieve  a display  table 
DSPGET,  DSPPUT 

ARRAY:  Input  or  output  array 

LENGTH;  Length  of  array.  In  words 

C5*,  IDPT 

NEwnrr,  store 

ALTER,  DSPMAK,  PRINCE 


The  aethod  differs  depending  upon  the  entry  point.  Both  entry  points, 
however,  use  IDISPT  (cosmon  block  lOTT)  to  determine  their  start  point. 
Therefore,  this  variable  should  be  set  to  zero  prior  to  the  first  call 
to  DSPPUT  and  to  100  prior  to  the  first  call  to  DSPGET. 

Entry  DSPPUT 

The  words  of  ARRAY  are  moved  one  at  a time  Into  the  Input  buffer  MAIN 
until  the  nun*er  LENGTH  has  been  moved.  Prior  to  each  Individual  move, 
IDISPT  Is  Incremented.  If  this  Indicates  the  buffer  is  full,  STORE  is 
called  and  IDISPT  reset  to  one. 

Entry  DSPGET 

First  the  value  of  IDISPT  is  checked.  If  it  is  negative,  the  first 
word  of  the  retrieval  comes  from  BACKSV.  ARRAY  Is  filled  from  successive 
positions  of  MAIN  with  IDISPT  being  Incremented  each  tijne.  When  IDISPT 
Indicates  the  buffer  has  been  exhausted,  BACKSV  is  set  equal  to  the  last 
word  of  the  buffer,  NEXTTT  is  called  for  the  next  set  of  words  and 
IDISPT  is  set  to  1. 

Subroutine  DSPPUT  is  Illustrated  In  figure  84. 


1 
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6,7.2  Subroutine  TABMNT 

PURPOSE:  To  maintain  REPORT  module  utility  tables  (see 

section  6.4.2) 

ENTRY  POINTS:  TABMNT 

FORMAL  PARAMETERS:  ARRAY:  Array  to  be  added  to  or  retrieved  from 

utility  table 

START:  Index  of  first  word  In  utility  table  to 

be  moved  to  or  from  array 
LENGTH:  Number  of  words  to  be  added  or  retrieved 
TYPE:  Identifying  nianber  (1-5) 

FUNCTI;  Function 

=1,  Move  to  table 
••2,  Move  from  table 
=3,  Delete  table 

COMMON  BLOCKS:  C40 

SUBROUTINES  CALTFID;  DLETE,  MODFY,  RETRV,  STORE 

CALLED  BY:  ALTER,  DESIGN,  DSPMAK,  PRINCE,  XDERN 

Method: 

If  the  call  Is  a delete  (FUNCTI=3),  all  tables  of  input  TYPE  are  deleted. 

If  the  call  is  either  a put  or  a get  (FUNCTI=1  or  2)  the  process  is 
similar.  Beginning  with  START  and  for  LENGTH  words,  each  word  goes 
through  the  same  process  separately.  The  number  of  the  utility  table 
and  Its  Index  are  calculated.  If  the  current  table  of  the  type  Is  the 
desired  one,  the  value  Is  obtained  from  the  table  or  Inserted  in  the 
table  (anytime  a put  occurs  the  switch  Indicating  no  modification  (NOMOD) 
Is  set  off).  If  the  desired  table  Is  not  the  current  table,  the  current 
table  Is  checked  to  see  If  It  has  been  modified.  If  so,  the  current 
table  Is  modified  by  calling  MODFY  If  It  Is  an  old  table.  If  It  Is  a 
new  table  STORE  Is  called  and  the  reference  code  saved.  In  any  case, 
the  desired  table  Is  now  retrieved  with  RETRV  and  the  no  modification 
switch  (NOMOD)  set  to  true. 

Subroutine  TABMNT  Is  Illustrated  In  figure  85. 
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Figure  85.  Subroutine  TABMNT  (Part  1 of  3) 
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Figure  85.  (Part  2 of  3) 


I 


1 

i 


6.8  Subroutine  ALTER 


PURPOSE: 


To  alter  an  existing  display 


ENTRY  POINTS: 

ALTER 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

CIO,  CIS,  C30,  DEFNMZ 

, DSPHED,  IDPT,  OOPS, 

SUBROUTINES  CALLED: 

DLETE, 

RETRV, 

DSPGET,  HDFND, 
STORE,  TABMNT, 

HEAD,  INSGET,  NEXTTT 
UNCODE 

CALLED  BY: 

ENTMOD 

(REPORT) 

Method: 


Step  One 

INSGET  Is  called  and  the  DISPLAY  clause  Is  found.  From  the  DISPLAY 
clause  the  name  of  the  new  display  Is  found  and  the  name  of  the  old 
display  Is  looked  for.  If  no  old  display  name  exists  It  Is  assumed 
to  be  the  same  name  as  the  new  display.  Then  the  DSPLAY  chain  Is 
searched  to  find  the  old  display  table  (see  figure  86). 

Step  Two 

The  display  header  Is  retrieved  and  stored  In  conmon  block  DSPHED.  The 
Input  Is  now  scanned  for  a SETTING  clause.  If  one  exists,  the  values 
entered  for  PAGELENGTH,  LINELENGTH  and/or  REPORTCODE  are  entered  In  the 
header.  Next  DSPGET  Is  called  to  skip  the  define  tables,  attribute 
tables  and  the  sort  scheme  (elements  2-10  In  table  18)  (see  figure  87). 

Step  Three 

The  Input  Is  scanned  for  a new  WHERE  clause.  If  one  Is  found  the  old 
WHERE  clause  Is  skipped  via  DSPGET  and  the  new  clause  Is  moved  from  the 
Input  Into  TABMNT  utility  table  mxmber  2.  If  there  Is  no  new  WHERE 
clause,  the  old  clause  Is  retrieved  via  DSPGET  and  stored  In  utility 
table  number  2.  Finally,  DSPGET  Is  used  to  skip  the  retrieval  and  print 
schemes  (elements  12  and  13  In  table  18)  (figure  88). 


*Maln  routine  of  overlay  link  RPTALT 
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Figure  86.  Subroutine  ALTER:  Step  One '(Part  1 of  3) 
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Figure  86.  (Part  2 of  3) 
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Figure  86.  (Part  3 of  3) 
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Figure  87.  Subroutine  ALTER:  Step  Two  (Part  1 of  3) 
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Step  Three  (Part  1 of  2) 


r ™ 

i : 

[ . ; 

I i 

I ' 

i 

1 

' Step  Four 

Any  new  DEFINE  clauses  are  read  In  and  their  names  saved  in  conmon  block 
DEFNMZ.  Their  Instructions  are  stored  In  utility  table  1.  If  the  new 
DEFINE  Is  of  the  form  DEFINE  name^DEFINE  name.  It  Is  not  saved  as  above 
but  rather  stored  In  the  delete  list  (DELDEL).  Next,  DSPGET  Is  used  to 
retrieve  any  old  DEFINES.  If  the  old  DEFINES  name  Is  either  already  In 
the  DEFINE’ list  or  In  the  delete  list  It  Is  Ignored.  Otherwise  It  Is 
saved  like  a new  DEFINE  (see  figure  89). 

Step  Five 

If  a new  SORT  clause  was  Input,  It  Is  read  In  and  stored  In  utility  table 
3 and  the  old  SORT  clause  Is  skipped.  If  there  Is  no  new  SORT  clause, 
the  old  clause  Is  retrieved  via  DSPGET  and  stored  In  utility  table  3 
(see  figure  90). 

Step  Six 

If  there  Is  no  new  FORMAT  clause  the  old  clause  Is  retrieved  using  DSPGET 
and  stored  In  utility  table  4.  Otherwise  each  AFTER,  REMOVE  or  REPLACE 
command  Is  executed  In  the  order  Input.  As  each  conmand  contains  an 
identified  PAGE,  LINE,  HEADER,  or  TRAILER  Item,  the  old  clause  is 
I retrieved  and  stored  In  utility  table  4 up  to  the  Identified  Item.  If 

i the  coimand  is  AFTER  the  Identified  Item  Is  also  stored  and  the  Items  In 

I the  Input  which  follow  the  AFTER  command  are  stored  In  utility  table  4 

j next.  If  the  command  Is  REMOVE  and  the  Item  Is  not  PAGE,  the  Identified 

I Item  Is  skipped.  If  the  Item  was  PAGE,  the  REMOVE  command  causes  the 

I Identified  Item  and  all  following  Items  up  to  the  next  PAGE  to  be  skipped. 

:!  If  the  conmand  Is  REPLACE  the  Item  Is  skipped.  Then,  If  a non-PAGE  item, 

I all  Items  following  the  REPLACE  conmand  are  stored  In  utility  table  4. 

During  this  process  each  Individual  element  (attribute,  long  string, 
alphabetic  constant,  etc.)  Is  examined  for  validity  and  added  to  the 
printed  display  report  (see  figure  91) . 

Step  Seven 

If  the  old  and  new  display  are  the  same  the  old  one  Is  deleted.  A new 
display  table  record  (DISPRC)  Is  now  stored  (see  figure  92). 
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Figure  89.  Subroutine  ALTER:  Step  Four  (Part  1 of  8) 
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Figure  89.  (Part  4 of  8) 
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Figure  90.  Subroutine  ALTER;  Step  Five  (Part  1 of  2) 
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(Step  Seven) 
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Figure  91.  Subroutine  ALTER:  Step  Six  (Part  1 of  11) 
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6.9  Subroutine  DESIGN 

* 

PURPOSE: 

To  design  a new  display 

ENTRY  POINTS: 

DESIGN 

FORMAL  PARAMETERS; 

None 

COMMON  BLOCKS: 

CIO,  C15,  C30,  DEFNMZ,  DSPHED,  OOPS, 

ZEES 

SUBROUTINES  CALLED; 

DLETE,  HDFND,  INSGET,  NEXTTT,  RETRV, 
TABMNT,  UNCODE 

STORE, 

CALLED  BY: 

ENTMOD  (REPORT) 

Method: 

Step  One 

First  the  Input  is  scanned  for  a DISPLAY  clause.  If  none  exists  the  new 
display  is  named  'Q TEMPORARY QQ' . If  a DISPLAY  clause  is  given,  the 
name  is  obtained  from  it.  If  the  name  is  said  to  be  'OLD,'  the  old 
clause  is  found  and  deleted.  If  the  name  is  said  to  be  'NEW'  a check 
is  made  to  assure  against  duplication.  The  new  display  table  record 
(DISPRC)  is  now  created  (see  figure  93). 

Step  Two 


The  attributes  PAGELENGTH,  LINELENGTH,  and  REPORTCODE  are  set  to  their 
defaults  (55,  120  and  42,  respectively).  Then  the  input  is  scanned  for 
a SETTING  clause.  Any  of  the  attributes  named  whose  values  are  set  by 
the  SETTING  clause  are  altered  to  reflect  the  new  values  (see  figure  94). 


Step  Three 

Now  any  and  all  DEFINE  clauses  are  read  in  and  stored  in  TABMNT  utility 
table  1.  As  DEFINES  are  read  they  are  checked  for  errors  and  their 
names  are  saved  in  connon  block  DEFNMZ  (see  figure  95). 


Step  Four 

If  there  is  an  input  WHERE  clause  it  is  read  in  and  stored  in  utility 
table  2.  As  it  is  read  in  it  is  checked  for  errors  (see  figure  96). 

Step  Five 

If  there  is  an  input  SORT  clause  it  is  read  in  and  stored  in  utility 
table  3 (see  figure  97). 
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Figure  93.  Subroutine  DESIGN:  Step  One  (Part  1 of  3) 
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Figure  94.  Subroutine  DESIGN:  Step  Two  (Part  1 of  2) 
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Figure  97.  Subroutine  DESIGN:  Step  Five  (Part  1 of  2) 
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Step  Six 


The  FORMAT  clause  Is  now  read  in  and  stored  in  utility  table  A.  As  it 
is  read  in,  each  item  (PAGE,  LINE,  HEADER,  TRAILER)  is  numbered  and 
printed  and  each  element  (DEFINE  name,  attribute,  long  string,  etc.)  is 
checked  for  errors  and  printed  (see  figure  98). 
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6.10  Subroutine  DSPMAK* 


PURPOSE: 


To  create  displays  from  tables  built  by  ALTER  or 
DESIGN 


ENTRY  POINTS:  DSPMAK 

■ ■■■  f 


FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  ATLST,  C20,  DEFNMZ,  DSPFRM  DSPHED,  IDPT  OOPS, 

ORDER,  RTLST,  SCHEME,  SORSCH,  ZEES 


SUBROUTINES  CALLED:  ATFNDR,  DSPPUT,  FORMAK,  LINKUP,  SETSCH,  TABMNT, 

UNCODE 


CALLED  BY:  ENTMOD  (REPORT) 

Method: 

Step  One 

All  DEFINE  clauses  are  retrieved  from  utility  table  1 and  scanned  for 
attributes.  Each  attribute  is  added  to  a list  of  attributes  (ATNUMB). 
Each  DEFINE  clause  is  also  checked  for  errors  (see  figure  99). 


Step  Two 


The  WHERE  clause  is  now  retrieved  from  utility  table  2 and  scanned  for 
attributes.  Any  attributes  found  are  added  to  the  attribute  list  (ATNUMB) 
If  the  CLASS  and/or  SIDE  attributes  are  found,  the  values  provided  for 
them  are  saved  to  aid  in  retrieval  scheme  construction  (see  figure  100). 


Step  Three 

The  SORT  clause  is  now  retrieved  from  utility  table  3 and  scanned  for 
attributes.  Any  attributes  found  are  added  to  the  attribute  list 
(ATNUMB)  and  flagged  as  being  part  of  the  print/ sort  record  (ATCLZ^3) . 
The  SORT  clause  is  also  error  checked  in  the  process  (see  figure  101). 


Step  Four 

The  FORMAT  clause  is  now  retrieved  from  utility  table  4 and  scanned  for 
attributes.  Any  attributes  found  are  added  to  the  attribute  list 
(ATNUMB)  and  flagged  as  being  part  of  the  print/sort  record  (ATCLZ=3) 
(see  figure  102). 


♦Main  routine  of  overlay  link  RPTDMK 
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Figure  99.  Subroutine  DSW1AK;  Step  One  (Part  1 of  2) 
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Step  Five 

Now  ATFNDR  Is  called  to  build  the  record  type  list  and  subroutine  LINKUP 
is  called  to  complete  the  record  type  list  and  SETSCH  is  called  to  build 
the  retrieval  scheme.  Next,  each  attribute  flagged  as  being  part  of  the 
print/sort  record  (ATCLZ=3)  is  added  to  a set  of  tables  which  contain 
its  address  and  its  assigned  position  in  the  print/sort  record  (elements 
8 and  9 In  table  18)  (see  figure  103). 

Step  Six 

Now  the  set  of  DEFINE  clauses  Is  processed  to  build  the  DEFINE  tables 
(elements  2-7  In  table  18).  The  DEFINES  are  placed  In  the  tables  In 
the  order  In  which  they  should  be  executed.  This  order  Is  dependent 
upon  the  presence  within  the  execution  Instructions  of  other  DEFINES. 

The  other  DEFINES  have  to  be  executed  prior  to  the  DEFINE  which  contains 
them.  The  process  determines  the  mode  (DFNMOD)  and  type  (DFNTYP)  of 
the  DEFINE.  'Normal'  DEFINES  are  also  assigned  positions  in  the  Print/ 
Sort  record  (DFNPOS) . The  alphabetic  Instructions  which  represents  a 
DEFINE  are  altered  In  the  following  way; 

o The  second  word  Is  changed  from  9 to  8 
o The  third  word  Is  set  to  the  DEFINES  ordinal  number 
o The  fourth  word  Is  set  to  the  DEFINES  mode 

(If  the  DEFINE  Instruction  being  altered  Is  one  whose  name  Is  the  same 
as  the  DEFINE  clause  which  contains  It  (either  a sum  or  product)  the 
third  and  fourth  words  are  set  to  zero.)  (See  figure  104.) 

Step  Seven 

The  WHERE  clause  Is  now  scanned  for  alphabetic  Instructions  that  repre- 
sent DEFINES  and  these  Instructions  are  altered  as  per  step  six  (see 
figure  105). 

Step  Eight 

The  SORT  clause  Is  now  retrieved  from  utility  table  3 In  pairs  of’ 
Instructions.  Each  pair  should  contain  an  attribute  or  DEFINE  name 
plus  one  of  the  special  words;  ASCENDING(A)  or  DESCENDING(D) . The 
pairs  are  used  to  create  the  sort  scheme  In  common  block  SORSCH  (element 
10  of  table  18)  (see  figure  106). 

Step  Nine 

The  FORMAT  clause  Is  now  retrieved  from  utility  table  4 and  used  to 
create  the  print  scheme  (element  13  of  table  18).  The  process  begins 
with  the  first  page  (If  a PAGE  special  word  Is  not  first  It  Is  Inserted 
by  the  subroutine).  Thereafter,  for  each  PAGE,  all  HEADER  Items  are 
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Figure  104.  (Part  4 of  5) 
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Figure  106.  Subroutine  DSPMAK;  Step  Eight  (Part  1 of  2) 
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retrieved,  counted  and  stored  in  utility  table  5.  Next,  all  TRAILER 
items  are  retrieved,  counted  and  stored  in  utility  table  5.  As  each 
HEADER  or  TRAILER  is  processed  it  is  converted  into  the  form  used  in 
the  print  scheme.  Attributes  and  DEFINES  are  used  to  build  print 
element  tables  (see  discussion  on  print  schemes,  6.4).  Every  element 
causes  additions  to  the  format  being  built  with  FORMAK.  When  an  item 
is  complete,  it  ia  stored  in  utility  table  5.  After  all  HEADERS  and 
TRAILERS  for  a page  have  been  processed,  the  PAGE  item  tabic  is  inserted 
in  utility  table  5 in  front  of  the  HEADERS  and  TRAILERS. 

Next,  each  LINE  Item  Is  processed  in  a manner  similar  to  HEADER  and 
TRAILER  items.  In  addition  to  that  process  it  is  determined  whether 
the  LINE  will  produce  a single  or  a number  of  logical  lines.  Any  LINE 
which  contains  either  an  attribute  or  a normal  DEFINE  will  be  produced 
once  for  every  accepted  record  retrieved.  Each  LINE  item  in  a PAGE  is 
added  to  utility  table  5 in  the  order  as  input  (see  figure  107). 

Step  Ten 

Now  the  various  tables,  schemes  and  clauses  are  added  to  the  display 
table  by  DSPPUT.  Consult  table  18  for  the  order  of  this  table  (see 
figure  108) . 
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6.11  Subroutine  PRINCE* 

PURPOSE;  To  print  a display 

ENTRY  POINTS;  PRINCE 


FORMAL  PARAMETERS; 
COMMON  BLOCKS; 


SUBROUTINES  CALUD; 


CALUD  BY; 


Method; 


None 

CIO,  CIS,  C20,  C30,  DEFVAR,  DSPHED,  IDPT,  INS, 
NONPAG,  OOPS,  PAGPAG,  PSCOM,  SCHEME,  SORSCH, 
ZEES 

DSPGET,  GETNXT,  HDFND,  HEAD,  INSFLS,  INSGET, 
INSPUT,  NEXTTT,  PSNXT,  PSPUT,  PSREC,  PSRWD, 
RETRY,  TABMNT,  UNCODE,  XDEFN,  XSORT,  XWHERE 

ENTMOD  (REPORT) 


Step  One 


The  Input  Is  scanned  for  the  DISPLAY  clause  and  the  display  name  Is 
found  (If  no  DISPLAY  clause  Is  provided  the  name  ' QTEMPORAKYQQ'  Is 
used).  The  DSPLAY  chain  Is  searched  for  the  appropriate  display  table. 
Next,  subroutine  DSPGET  Is  called  to  retrieve  the  display  table  header, 
define  tables  (the  execution  Instructions  are  stored  In  utility  table  1), 
attribute  tables  and  sort  schemes  (elements  1-70  In  table  18)  (see 
figure  109). 


Step  Itoo 

The  Input  Is  now  scanned  for  a VfHERE  clause.  If  none  Is  found  the  old 
clause  Is  retrieved  by  DSPGET  and  stored  via  INSPUT  In  the  Input  Instruc- 
tion tables  (this  clause  Is  stored  beginning  at  the  next  full  table 
after  those  already  In  use).  If  a new  WHERE  clause  Is  found  It  Is 
stored  via  TABMNT  In  utility  table  2.  In  the  storing  process  Its  alpha- 
betic Instructions  which  referenced  DEFINE  names  are  converted  as  per 
step  six,  section  6.10.  Also,  whatever  values  are  Input  for  the  CLASS 
and  SIDE  attributes  are  saved.  When  the  WHERE  clause  Is  completely  pro- 
cessed, It  Is  moved  from  utility  table  2 Into  the  Input  Instruction 
tables  (see  figure  110). 


♦Main  routine  of  overlay  link  RPTPRN 
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Figure  109.  Subroutine  PRINCE:  Step  One  (Part  1 of  3) 
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Step  Three 


The  retrieval  scheme  is  now  brought  in  by  subroutine  DSPGET.  If  the 
first  instruction  needs  to  be  altered  because  of  a change  in  the  values 
for  CLASS  and  SIDE  in  a new  WHERE  clause,  this  function  is  performed. 

This  change  may  require  the  adjustment  of  all  scheme  pointers  (see 
figure  111). 

Step  Four 

The  print/sort  file  is  now  created.  The  first  part  of  the  process  is 
to  call  PSREC  and  initialize  all  sums  and  product  DEFINES.  Next  GETNXT 
is  used  to  execute  the  retrieval  scheme.  For  each  return  from  GETNXT, 
XDEFN  is  called  to  execute  all  DEFINES  and  XWHERE  is  called  to  perform 
selection.  If  a record  is  selected,  the  appropriate  attributes  and 
DEFINES  are  stored  in  the  RECORD  array  and  PSPUT  is  called  to  add  a new 
print/sort  record.  Finally  when  the  retrieval  scheme  is  complete,  XBORT 
is  called  to  sort  the  print/sort  file  (see  figure  112). 

Step  Five 

The  print  scheme  is  now  retrieved  through  subroutine  DSPGET  as  needed 
and  executed.  The  process  is  performed  separately  for  each  PAGE.  For 
each  PAGE  all  HEADER  items  are  retrieved  and  stored  in  utility  table  3. 
Next,  all  TRAILER  items  are  retrieved  and  stored  in  utility  table  4. 

Now  the  set  of  HEADER  items  is  executed  and  their  corresponding  print 
produced.  Then  each  LINE  item  is  retrieved  and  its  corresponding  print 
produced.  If  the  LINE  is  a single  logical  line,  this  is  a simple  execu- 
tion of  the  item.  For  multiple  LINES,  the  process  begins  with  the  call 
of  PSRWD  and  the  initialization  of  sums  and  products.  Then  PSNXT  is 
called  for  each  print/sort  record.  When  it  is  retrieved,  XDEFN  is  called 
for  all  DEFINES  that  are  not  normal.  Finally,  the  print  line  is  produced 
and  PSNXT  is  called  again. 

During  the  LINE  print  process,  PRINCE  keeps  track  of  the  number  of  lines 
remaining  on  the  page.  When  there  is  only  room  left  for  the  TRAILERS, 
they  are  executed  and  the  HEADERS  are  executed  and  processing  continues. 
When  all  LINE  items  have  been  processed  the  TRAILERS  are  executed. 

The  above  process  takes  place  for  each  PAGE  item  (see  figure  113). 
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Figure  111.  Subroutine  PRINCE:  Step  Three  (Part  1 of  2) 
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Figure  113.  (Part  6 of  8) 
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6.11.1  Subroutine  XDEFN 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  execute  a DEFINE  clause 
XDEFN 

NUMBER:  Index  of  DEFINE  variable 
INDEX:  Index  of  start  of  DEFINE  clause  in  table 

MODE:  Mode  of  DEFINE  variable 

*1,  Integer 
=2,  float 

C30,  DEFVAR,  ZEES 

lORFL,  TABMNT,  UNCODE 

PRINCE 


Method: 

The  method  used  by  XDEFN  Is  best  understood  by  following  figure  114. 
Basically,  the  subroutine  processes  the  execution  Instructions  for  a 
DEFINE  as  they  appear.  The  current  value  Is  maintained  In  local 
variable  'Q'  and  the  new  value  Is  stored  In  local  variable  'R'.  For 
each  Instruction  a branch  (IBR)  Is  set  and  then  the  remainder  of  the 
Instruction  Is  used  to  determine  the  value  of  R.  Then  the  branch  Is 
made  and  whatever  operation  on  Q and  R Is  called  for  Is  carried  out 
with  the  result  placed  In  Q.  The  final  value  Is  stored  In  common  block 
DEFVAR  Indexed  by  NUMBER. 
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Figure  114.  Subroutine  XDEFN  (Part  1 of  4) 
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SECTION  7.  SAVE  AND  RESTORE  MODULE  (SRM) 


7.1  Purpose 

The  purpose  of  the  SRM  Is  to  give  the  user  the  capability  to  copy  the 
Integrated  data  base  onto  a magnetic  tape  and  to  restore  the  same  data 
base  to  a previously  stored  state  by  reading  In  such  a tape. 

7.2  Input 

The  Input  to  the  SRM  Is  the  Integrated  data  base.  For  a SAVE  conmiand, 
the  data  base  resides  on  permanent  disk  files;  for  a RESTORE  command, 
the  data  base  resides  on  magnetic  tape(s). 

7.3  Output 

The  output  of  the  SRM  Is  the  reverse  of  the  Input.  That  is,  for  a SAVE 
command,  the  output  Is  the  data  base  stored  onto  a magnetic  tape;  for  a 
RESTORE  conmand  the  output  Is  the  data  base  stored  onto  permanent  disk 
files. 


7.4  Concept  of  Operation 

SRM  uses  the  SVTP  utility  subroutine  to  perform  a link-for-link  dump  or 
restore  of  the  IDS  data  file.  Since  SRM  may  be  called  directly  by 
INICOP  in  the  case  of  a RESTORE  verb  being  the  first  Input,  SRM  must 
process  any  UNIT  clause  by  calling  GETSTR  directly.  This  is  due  to  the 
fact  that  SRM  may  be  used  to  restore  to  an  uninitialized  file. 

7.5  Identification  of  Subroutine  Functions 

The  entry  module  of  SRM  calls  no  subroutines  other  than  the  SVTP  utility. 
This  utility  is  designed  to  dump  or  load  any  random  file  from  tape.  The 
execution  of  the  SVTP  utility  may  result  in  the  special  system  abort 
codes  listed  in  table  20. 


Table  20.  SVTP  System  Abort  Codes 


CODE 

BC 

IT 

NC 

PM 

SD 

ST 

TL 


MEANING 

Block  Count  Error.  Probably  a bad  tape 

Incorrect  Device  Type.  Check  JCL 

Not  Enough  Core.  Set  higher  limits 

Parameters  Mixed.  Contact  a maintenance  programmer 

Sequential  Disk.  Check  JCL 

Same  Type.  Sequential  unit  must  be  tape 

Disk  Too  Little.  Input  tape  wrong  size  for  disk  file 


7.7  Subroutine  ENTMOD 


PURPOSE : To  save  and  restore  the  IDS  file 

ENTRY  POINTS;  ENTMOD  (first  subroutine  called  when  overlay  SRM 

Is  executed) 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS;  CIS,  C30,  IPQT,  OOPS,  STRING 

SUBROUTINES  CALLED;  FILLAD,  FILSAV,  GETSTR,  HDFND,  INSGET,  RETRV 

CALLED  BY;  MODGET 

Method; 

First  the  ERROR  switch  Is  checked.  If  It  Is  on,  the  call  Is  from  INICOP 
and  special  processing  must  be  followed.  GETSTR  Is  used  to  retrieve 
Input  strings  to  look  for  a possible  UNIT  clause.  If  one  Is  found  the 
Input  unit  code  Is  set.  Otherwise,  POINTR  Is  reset  to  Its  original  value. 
ISW  Is  set  to  1 since  all  calls  from  INICOP  are  to  RESTORE. 

If  ERROR  was  not  true,  INSGET  is  called  for  the  verb  and  ISW  Is  set  to 
1 for  RESTORE,  2 for  SAVE.  Next,  the  UNIT  clause  is  checked  for.  If 
found,  the  unit  Is  set  accordingly. 

Then  If  ISW=1,  FILLOD  is  called,  if  ISW=2,  FILSAV  Is  called.  Finally, 
ERROR  la  checked  again.  If  It  is  true  It  la  set  to  false.  If  it  is 
false,  the  Index,  utility  table,  and  dictionary  headers,  and  the  module 
link  tables  are  retrieved. 

Subroutine  ENTMOD  (SRM)  Is  Illustrated  In  figure  115. 


575 


Call  ENCODE 
to  Create 
Unit  Parameter 


SAVE? 


call  FILRSTR 
to  Restore 
File 


Call  RETRY 
to  Retrieve 
Index  and 
Tahio  Header 


Called 

From 

INICOP? 


Figure  115.  (Part  2 of  4) 
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SECTION  8.  EXTERNAL  INTERFACE  MODULE  (EIM) 


8.1  Purpose 

Tlie  purpose  of  the  EIM  Is  to  create  output  tapes/files  which  are  designed 
to  be  Input  to  external  processors. 

8.2  Inpat 

The  output  files  to  be  built  each  have  the  precondition  that  all  data 
necessary  for  the  file  be  present  In  the  data  base. 

8.3  Output 

The  output  of  EIM  depends  upon  the  verb  and  the  FILE  clause.  BUILD  FILE 
TABLE  produces  a single  tape  with  six  subsections.  The  format  of  this 
tape  appears  In  table  21.  BUILD  FILE  SIDAC  produces  two  tapes,  one  con- 
taining BLUE  targets,  one  containing  RED  targets.  The  format  of  the  two 
tapes  appears  In  table  22.  BUILD  FILE  OTHER  produces  a single  tape  or 
file  whose  format  and  contents  are  specified  by  the  user. 

The  PLOTDATA  verb  produces  two  tapes.  One  Is  a tape  suitable  for  the 
CALCOMP  plotter.  The  other  contains  Information  concerning  all  points 
which  were  not  added  to  the  plot  tape  owing  to  their  being  out  of  range 
of  the  plot  size. 

8.4  Concept  of  Operation 

The  EIM  first  determines  which  verb  caused  the  call.  If  the  verb  was 
PLOTDATA, the  the  PLOTDATA  routine  Is  executed.  If  the  verb  was  BUILD, 
the  FILE  clause  Is  found  along  with  the  special  word  within  the  clause.  If 
the  special  word  Is  SIDAC  or  TABLE  the  appropriate  subroutines  are 
called  to  produce  the  named  files.  If  the  special  word  is  OTHER,  the 
BLDOTH  subroutine  is  called  to  produce  the  named  files.  If  the  special 
word  Is  OTHER,  the  BLDOTH  subroutine  Is  called  to  produce  the  Input 
defined  file. 

8.5  Identification  of  Subroutine  Functions 

8.5.1  Subroutine  SIDAC.  This  subroutine  produces  the  data  base  assess- 
ment tapes  (DBASSESS).  A preset  retrieval  scheme  for  all  BLUE  targets 
Is  set  up  and  executed.  Each  target  retrieved  Is  written  out  In  a 
modified  JAD  format.  When  all  BLUE  targets  have  been  output,  the  scheme 
Is  modified  for  RED  targets  and  the  RED  targets  are  written  onto  a sep- 
arate tape. 
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Table  21  . BUILD  FILE  TABLE  Output  File  Formats 
(Part  1 of  5) 

TARGET  LIST 

Column  Meaning 

1-8  'FITARGET' 

9 Side:  1 for  Blue;  2 for  Red 

10-14  Line  Count,  numeric 

15  Blank 

16-20  DESIG,  alphabetic 

21-24  Blank 

25-31  Latitude  (LAT),  degrees,  minutes,  seconds 

32-39  Longitude  (LONG),  degrees,  minutes,  seconds 

40  Blank 

41-46  NAME,  alphabetic 

47-50  World  Area  Code  (WACNO) , alphabetic 

51-55  Bomber  Encyclopedia  Number  (BENO) , alphabetic 

56  Blank 

57-61  Category  (CATCODE) , numeric 

62-63  Country  Location  (CNTRYL),  alphabetic 

64-69  Major  Complex  Number  (MAJOR) , numeric 

70-71  TASK,  alphabetic 

72-76  Index  Number  (INDEXNO),  numeric 


77  Blank 

78-80  Complex  Number  (ICOMPL),  numeric 


Column 

1-7 

8 

9 

10-14 

15 

16-20 

21-55 

56-58 

59-61 

62-64 

65-69 

70-75 

76-80 


Column 

1-8 

9 

10-14 

15-17 

18-19 

20 

21-37 

38-43 

44-46 

47-80 
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Table  21.  (Part  2 of  5) 

VEHICLE  CHARACTERISTICS  LIST 

Meaning 

'FIVEHIC 

Blank 

Side:  1 for  Blue;  2 for  Red 
Line  count,  numeric 
*1* 

Missile  or  bomber  line  count 
Blank 

CEP  In  hundreds  of  feet 
Blank 

CEP  in  hundreds  of  feet 
Blank 

TYPE,  alphabetic 
Blank 


WEAPON  CHARACTERISTICS  LIST 

Meaning 
■'FIWEAPON' 

Side:  1 for  Blue;  2 for  Red 
Line  count 
Blank 

Warhead  type  (Line  Count  * 10  plus  1 for  ASM  0 for  all  others) 

0 « Bomb,  1 =*  ASM,  2 • DECOY 
Blank 

Warhead  yield  In  kllotons 
Fission  to  Fusion  percentage  (FFRAOlOO) 

Blank 

I 

( 
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Column 

1-8 

9 

10-14 

15 

16-20 

21. 

22-28 

29-36 

37 

38-41 

42-43 

44-45 

46-47 

48-49 

50 

51 

52 

53 

54-59 

60-65 

66-69 

70-71 

72-74 

75-80 


I ^ 


1 

1 

1 

Table  21.  (Part  3 of  5) 

MISSILE  BASE  LIST 

Meaning 
'FIMIBASE' 

Side:  1 for  Blue;  2 for  Red 
Line  Count 
Blank 
Line  Count 
Blank 

Latitude  (LAT)  degrees,  minutes,  seconds 
Longitude  (LONG)  degrees,  minutes,  seconds 
Blank 

Vulnerability  Number  (VULNl)  alphabetic 
Type  Count 
B lank 
'1/' 

Number  per  site  (NMPSn),  numeric 
Blank 

H if  VN  greater  than  or  Equal  to  20  S otherwise 
Blank 

1 if  column  51  is  H or  if  51  is  S and  NOALER  Equal  NMPSIT 
Otherwise  = 2 

Blank 

NAME,  alphabetic 
Blank 

Country  Location  (CNTRYL),  alphabetic 
Blank 

TYPE,  alphabetic 
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Table  21.  (Part  4 of  5) 


BOMBER  BASE  LIST 

Column  Meaning 

1-6  'FlBASE' 

7-8  Blank 

9 Side:  1 for  Blue;  2 for  Red 

10  Blank 

11-14  Line  Count 

15  Blank 

16-20  Index  Number  (INDEXNO) , numeric 

21  Blank 

22-28  Latitude  (LAT),  degrees,  minutes,  seconds 

29-36  Longitude  (LONG),  degrees,  minutes,  seconds 

37  Blank 

38  1 for  SLBM,  2 for  LRA,  3 for  TAC,  7 for  all  others  (from 
FUNCri) 

39  Blank 

40  'X* 

41-43  Blank 

44  'X  for  tanker  blank  for  all  others 

45-59  Blank 

60-65  NAME,  alphabetic 

66-69  Blank 

70-71  Country  Location  (CNTRYL) , alphabetic 

72-80  Blank 
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Table  21,  (Part  5 of  5) 

OFFENSIVE  RECOVERY  BASE  LIST 

Column  Meaning 

1-7  'FlRECBS' 

8 B lank 

9 Side:  1 for  Blue;  2 for  Red 

10-14  Line  Count 

15  Blank 

16-21  DESIG,  alphabetic 

22-23  Blank 

24-30  Latitude  (LAT) , degrees,  minutes,  seconds 

31-38  Longitude  (LONG),  degrees,  minutes,  seconds 

39  Blank 

40-45  NAME,  alphabetic 

46-49  World  Area  Code  (WACNO) , alphabetic 

50-55  Bomber  Encyclopedia  Number  (BENO),  alphabetic 

56-60  Category  Code  (CATCODE),  numeric 

61-62  Country  Location  (CNTRYL),  alphabetic 

63-68  Major  Complex  Nximber  (MAJOR) , numeric 

69-70  TASK,  alphabetic 

71-75  Index  Number  (NDEXNO) , numeric 

76  Blank 

77-80  Capacity  (CAPACITY),  numeric 
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Table  22.  BUILD  FILE  SIDAC  Output  File  Format 
(Part  1 of  2) 


Column  Meaning 


1-5 

6-9 

10-15 

16-20 

21-26 

27-58 

59-64 

65-88 

89-94 

95-118 

119-125 

126-133 

134-137 

138-139 

140-147 

148-149 

150-155 

156-159 

160-163 

164-167 

168-190 

191-198 

199-205 

206-208 

209-288 

289-293 

294 

295-300 


Category  code,  (CAT CODE)  numeric 

World  Area  Code  (WACNO)  alphabetic 

Bomber  Encyclopedia  Number  (BENO)  alphabetic 

Blank 

Name  (NAME)  alphabetic 
Blank 

Major  Complex  Number  (MAJOR)  numeric 
Blank 

Minor  Compound  Number  (MINOR)  numeric 
Blank 

Latitude  (LAT)  degrees,  minutes,  seconds 
Longitude  (LONG)  degrees,  minutes,  seconds 
Blank 

Country  Location  (CNTRYL)  alphabetic 
Blank 

Country  Owner  (CNTRYO)  alphabetic 
Blank 

Severe  vulnerability  (VULNl)  VNTK 
Moderate  vulnerability  (VULN2)  VNTK 
"03P(y' 

Blank 

Capacity  (POP*10) . This  quality  is  zero  for  all  non-U /I 
targets 

Blank 

Radius  (RADIUS*10)  numeric  - tenth  of  nautical  miles. 
This  quantity  is  zero  for  all  non-U/l  targets 

Blank 

DESIG,  alphabetic 
Blank 

TYPE,  alphabetic 
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Table  22.  (Part  2 of  2) 


Column 

301-303 

304-305 

306 

307-312 

313-314 

315-318 

319 

320 

321-335 

336 


Meaning 

Blank- 

ICLASS,  numeric 

1 for  Blue  targets;  2 for  Red  targets 
Blank 

TASK,  alphabetic 
Blank 

Region  (IREG),  numeric 

SAGA  region.  This  quantity  is  IREG  +1  unless  country  loca- 
tion is  US  or  AK  in  which  case  it  is  IREG 

Blank 

Record  Mark 


8.5.2  Subroutine  TABLE.  This  subroutine  produces  the  table  file.  The 
following  tables  are  produced: 

o Target  list 

o Vehicle  characteristics  list 
o Weapon  characteristics  list 
o Missile  base  list 
o Bomber  base  list 
o Offensive  recovery  base  list 

For  each  list  a preset  retrieval  scheme  is  executed  and  the  records 
retrieved  are  written  onto  the  output  tape. 

8.5.3  Subroutine  BLDOTH.  This  subroutine  builds  an  output  file  accord- 
ing to  user  specified  formats.  This  option  is  very  similar  in  concepts 

to  the  REPORT  module.  First,  all  input  clauses  are  scanned  for  attributes 
and  a retrieval  scheme  is  built.  Next,  all  DEFINES  are  placed  in  proper 
execution  order  and  DEFINE  variable  execution  tables  are  built.  Next, 
the  WHERE  clause  is  scanned  for  DEFINES  and  altered  to  handle  them  prop- 
erly. The  sort  scheme  is  now  created.  Next,  the  retrieval  scheme  is 
executed  and  a file  built  of  the  resultant  records  and  this  file  is 
sorted.  Finally,  the  FORMAT  clause  is  executed  to  produce  the  desired 
file  (see  figure  116). 

8.5.4  Subroutine  PLOTDATA.  This  subroutine  builds  an  output  plot  tape. 
Four  types  of  geographic  data  may  be  plotted: 

o Penetration  corridors 
o Depenetration  corridors 
o Refuel  points 
o Recovery  bases 

For  each  desired  set  of  data  a preset  retrieval  scheme  is  used  to 
retrieve  the  appropriate  data.  For  each  data  record  retrieved,  the 
coordinates  (LAT,  LONG)  are  converted  and/or  scaled  to  the  desired  map 
characteristics  and  are  processed  for  the  plotter. 

8.6  Common  Blocks 

The  common  blocks  Internal  to  EIM  are  listed  in  table  23. 
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Figure  116.  Subroutine  BLDOTH:  Macro  Flow 
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Table  23.  EIM  Internal  Conmon  Blocks  (Part  1 of  3) 

BLOCK  ARRAY  OR  VARIABLE  DESCRIPTION 

ATLST 

ATNUMB(IOO) 

ATADD(IOO) 

ATTYP(IOO) 

ATRA(IOO) 

ATRB(IOO) 

NUMAT 

DEFNMZ  DFNAME(IOO) 

DFPNT(IOO) 


DEFVAR 

VARXX(IOO) 

Value  of  DEFINE  variable 

DSPFRM 

Provides  conmunlcatlon  with  FORMAK 
utility  subroutine 

FORMAR(50) 

Format  being  constructed 

IFPNT 

Pointer  to  next  character 

IFLNG 

Niimber  of  words  used 

PLTPRO 

MERCAT 

Project  type  (set  to  0) 

IDIREC 

Indicator  of  plot  direction  (+1  for 
counter  clockwise,  -1  for  clockwise) 

FLMDAO 

Longitude  of  origin 

PHIO 

Latitude  of  origin 

THETAO 

Angle  between  meridian  and  X-axls 

PHIl 

Standard  parallel  closest  to  equator 

PHI2 

Standard  parallel  closest  to  pole 

AILIO 

Fractional  part  of  log  for  PHIl 

A2L10 

Fractional  part  of  log  for  PHI2 

Provides  comminlcatlon  with  the  ATFNDR 
utility  subroutine 

Attribute's  Identifying  number 

Attribute's  address 

Attribute's  mode  (-1,  Integer,  =2, 
alphabetic,  =3,  floating  point) 

Attribute's  lower  limit 

Attribute's  upper  limit 

Number  of  attributes 

DEFINE  variable  name 

Points  to  DEFINE  clause  In  the  Instruc- 
tion code 


Table  23.  (Part  2 of  3) 


BLOCK 

ARRAY  OR  VARIABLE 

DESCRIPTION 

PLTSPE 

ISZE 

Plot  size  Indicator 

=0  for  50  X 40 

=1  for  20  X 20 

-2  for  10  X 10 

PLTSPE 

XAXLEN 

Length  of  X-axls  In  Inches 

YAXLEN 

Length  of  Y-axis  In  Inches 

FACTOR 

Number  of  plots  per  page 

SCALE 

Ratio  of  world  units  to  plot  units 

PRINSP 

PRINON 

Switch  to  control  optional  print 
=True,  produce  print 
=False,  do  not  produce  print 

PSCCW 

RECORD (100) 

Used  to  communicate  with  PSREC  utility 
Body  of  print/sort  record 

RECLEN 

Number  of  words  in  record 

RTLST 

RTLIST(IOO) 

Used  to  communicate  with  ATFNDR  utility 

List  of  record  type  numbers  for  retrieval 

NUMREC 

Nvmber  of  record  types  in  list 

HDREC 

Record  type  name  of  primary  header 

HCLASS 

CLASS  value  of  primary  header 

HSIDE 

SIDE  value  of  primary  header 

HOPT 

CLASS/SIDE  option  for  scheme 

JHDR 

Record  type  number  of  primary  header 

SCHEME 

POINT 

Pointer  to  current  instruction  of 
retrieval  scheme 

SCHEME (200) 

Retrieval  scheme  (see  UM  I,  section 

5. 3. 2. 4) 

SORSCH 

SRTSCH(IOO) 

Sort  scheme  (see  section  6.10) 

TAPES 

PLOTTA 

Logical  unit  number  for  plot  tape 

PIECTA 

Logical  unit  number  for  tape  for 

nonplotted  points 
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Table  23.  (Part  3 of  3) 


BLOCK 


XMEDGE 


ARRAY  OR  VARIABLE 


XMEDGE 


XWEDGE 

6ANGL 


DESCRIPTION 
Map  edge 

X-coordlnate  of  last  point 

Y-coordlnate  of  last  point 

X-coordinate  of  point  to  be  plotted 

Y-coordlnate  of  point  to  be  plotted 

Converted  value  for  latitude  of  origin 

Converted  value  for  longitude  of 
origin 

Used  internally  for  core  position  only 


Equivalent  to  output  array  from 
INSGET 


8,7  Subroutine  ENTMOD 
PURPOSE : 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 

COMMON  BLOCKS; 

SUBROUTINES  CALLED! 

CALIED  BY; 

Method: 

First  the  input  is  scanned  for  the  ONPRINTS  adverb  and  if  found  the 
PRINON  switch  is  set  to  true.  Next,  the  verb  is  retrieved,  if  it  is 
PLOTDATA  the  overlay  link  and  PLOTDA  are  executed.  If  the  verb  is 
BUILD,  the  FILE  clause  is  found  and  the  special  word  checked.  If  it 
is  TABLE,  the  overlay  for  TABBLE  is  called.  If  it  is  SIDAC,  the 
overlay  link  for  SIDAC  is  called.  If  it  is  OTHER  the  overlay  link  for 
BLDOTH  is  called. 

Subroutine  ENTMOD  (EIM)  is  Illustrated  in  figure  117. 


Entry  subroutine  for  EIM 

ENTMOD  (first  subroutine  called  when  overlay  EIM 
is  executed) 

None 

OOPS,  PRINSP 

BLDOTH,  INSGET,  PLOTDA,  SIDAC,  TABBLE 
MODGET 


5% 


START 


Figure  117.  Subroutine  ENTMOD  (EIM)  (Part  1 of  2) 
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(Part  2 of  2) 
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8.7.1  Subroutine  CONVLL 

PURPOSE:  Convert  latitude  and  longitude  to  degrees, 

minutes,  seconds  (DMS)  format 

ENTRY  POINTS:  CONVLL 

FORMAL  PARAMETERS;  XLAT;  Input  latitude 

XLONG:  Input  longitude 

CHLAT:  Output  latitude  (character  *7) 

CHLONG:  Output  longitude  (character  *8) 

COMMON  BLOCKS;  None 

SUBROUTINES  CALLED;  None 

CALLED  BY;  SIDAC,  TABBLE 

Method; 

The  process  Is  similar  for  both  latitude  and  longitude.  The  latitude 
Is  converted  first.  The  letter  (CHM)  Is  set  to  N and  If  the  latitude 
Is  negative  It  Is  set  to  positive  and  CHM  Is  set  to  S.  The  degrees, 
minutes  and  seconds  are  then  broken  out  and  ENCODEd  Into  CHLAT. 
Longitude  Is  now  processed,  CHM  Is  set  to  W.  If  longitude  Is  greater 
than  180  It  Is  subtracted  from  360  and  CHM  Is  set  to  E.  Longitude  Is 
then  broken  down  and  ENCODED  Into  CHLONG. 

Subroutine  CONVLL  Is  Illustrated  In  figure  118. 


Figure  118.  Subroutine  CONVLL 
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8.8  Subroutine  BLDOTH' 

To  construct  an  Input  defined  file 
BLDOTH 


None 


ATLST,  C30,  DEFNMZ,  DEFVAR,  DSl'l’RM,  OOPS,  PSCOM,  i 

RTLST,  SORSCH,  ZEES  i 

ATFNDR,  FORMAK,  GETNXT,  INSGET,  INSPUT,  LINKliP,  ! 

PSWrT,  PSPUT,  PSREC,  PSRWD,  SETSCH,  ENCODE,  ] 

XDEFN,  XSORT,  XWHERE  ] 

] 

ENTMOD  fEIM)  ’ 

Me  thod : 

Step  One 

If  there  is  a UNIT  clause  it  is  used  to  reset  the  output  unit  (default 

=35).  Next  the  DEFINE,  WHERE,  SORT,  and  FORMAT  clauses  are  all  scanned  ; 

for  attributes.  Tlie  attributes  in  the  SORT  and  FORMAT  clauses  are  j 

flagged  as  being  part  of  the  print  (sort  record  (ATCLZ=4  or  5).  Also, 

the  WHERE  clause  is  scanned  for  values  for  the  SIDE  or  CLASS  attributes 

and  the  names  of  the  DEFINES  are  saved  (see  figure  119).  ■ 

Step  T^v'o  i 

Ilie  set  of  DEFINTl  clauses  is  processed  to  build  the  DEFINE  tables  \ 

(similar  to  element  2-7  in  table  18).  The  DEFINES  are  placed  in  the 
table  in  the  order  In  which  they  should  be  executed.  This  order  is 
dependent  upon  the  presence  with  the  execution  Instructions  of  other 

DEFINES.  These  other  DEFINES  have  to  be  executed  prior  to  the  DEFINE  ! 

which  contains  them.  The  process  determines  the  mode  (DFaMOD)  and  • 

type  (DFN'n'P)  of  the  DEFINE.  Normal  DEFINES  are  also  assigned  posi-  j 

tlons  in  the  print/sort  record  (DFNPOS).  The  alphabetic  instructions  j 

which  represent  a DEFINE  are  altered  in  the  following  x\’ay:  i! 

o The  second  word  is  changed  from  9 to  8 

o The  third  word  is  set  to  the  DEFINES  ordered  number  ; 

o The  fourth  word  is  set  to  the  DEFINES  mode 

(If  the  DEFINE  instruction  being  altered  is  one  whose  name  is  the  same  ■ 

as  the  DEFINE  clause  which  contains  it,  the  third  and  fourth  words  are 

set  to  zero)  (see  figure  120). 

*Maln  routine  of  overlay  BOTHER 


PURPOSE : 

ENTRY  POINTS: 

FORxMAL  PARA^ETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 

CALLED  BY: 
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Clause.  Set 
Default  for  Unit 


Call  I NS GET 
for  Number 
of  Adverbs 


Set  Count  of 
Occurrence  of 
Adverb  to  Zero. 
Count  is  Used  onl 
for  DEFINE  Adverb 


Branch  on 
Type  of 
Adverb 


[ DEFINE 


Save  DEFINE 
Name  and 
Pointer  Co 
Clause 


A- 


WHERE 


Save  WHERE 
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Figure  119.  (Part  4 of  7) 
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Figure  119.  (Part  7 of  7) 
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Figure  120,  (Part  2 of  k) 
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Figure  120.  (Part  3 of  4) 
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Figure  120.  (Part  4 of  4) 
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Set  Type 
Based  on 

Next  Instruction 


Step  Three 

The  WHERE  clause  Is  now  scanned  for  alphabetic  Instructions  that  repre- 
sent DEFINES  and  these  Instructions  are  altered  as  per  step  two  (see 
figure  121). 

Step  Four 

The  SORT  clause  Is  now  retrieved  In  pairs  of  Instructions.  Each  pair 
should  contain  an  attribute  or  DEFINE  name  plus  one  of  the  special 
words:  ASCEND ING(A)  or  DESCENDING (D) . These  pairs  are  used  to  create 
the  sort  scheme  In  common  block  SORSCH  similar  to  element  10  of  table 
18  (see  figure  122). 

Step  Five 

First  PSREC  Is  called  and  all  sum  and  product  DEFINES  are  Initialized. 
Next  GETNXT  Is  called  to  execute  the  retrieval  scheme.  For  each  return 
from  GETNXT,  XDEFN  Is  called  to  execute  all  DEFINES  and  XWHERE  Is 
called  to  perform  selection.  If  a record  Is  selected,  the  appropriate 
attributes  and  DEFINES  are  stored  In  the  RECORD  array  and  PSPUT  Is 
called  to  add  a new  print/sort  record.  Finally,  when  the  retrieval 
scheme  Is  complete,  XSORT  Is  called  to  sort  the  print/sort  file  (see 
figure  123). 

Step  Six 

In  this  step,  the  FORMAT  clause  Is  processed  and  the  output  file  produced. 
The  FORMAT  clause  must  be  made  up  of  PAGE  and/or  LINE  Items.  When  a 
PAGE  Item  Is  encountered  a file  mark  Is  written  on  the  tape.  When  a 
LINE  Item  Is  encountered  every  element  In  It  Is  scanned.  Attributes 
and  DEFINE  names  are  added  to  print  element  tables  (see  discussions  on 
print  schemes  6.4)  and  each  element  causes  additions  to  the  format  being 
built  by  FORMAK.  When  the  entire  LINE  Item  has  been  scanned,  the  process 
depends  on  whether  the  LINE  contained  as  elements  any  attributes  or 
normal  DEFINES.  If  not,  a single  record  Is  produced  with  the  created 
format.  If  so,  the  process  begins  with  a call  of  PSRWD  and  the  Initial- 
ization of  sums  and  products.  Then  PSNXT  Is  called  for  each  print/sort 
record.  When  It  Is  retrieved,  XDEFN  Is  called  for  all  DEFINES  that  are 
not  normal.  Finally  a record  Is  produced  using  the  created  format  for 
each  print/sort  record.  The  above  process  continues  until  all  Items  In 
the  FORMAT  clause  have  been  processed.  An  end  of  file  Is  then  written 
on  the  output  unit  and  It  Is  rewound  (see  figure  124) . 
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FiRurc  121.  Subroutine  BLDOTH:  Step  Three  (Fart  1 of  2) 
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Figure  121.  (Part  2 of  2) 
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Figure  123.  Subroutine  BLDOTH:  Step  Five  (Part  1 of  2) 
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Figure  123«  (Part  2 of  2) 
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Figure  124.  (Part  3 of  10) 
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Figure  124.  (Part  5 of  10) 
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8.8.1  Subroutine  XEDEFN 


! 

i 


i 


PURPOSE; 


Execute  DEFINES 


XDEFN 

NUMBER:  Index  of  DEFINE  variable 
INDEX:  Index  of  start  of  DEFINE  clause  in  the 

instruction  code  table 
MODE:  Mode  of  DEFINE  variable 

=1,  Integer 
=2,  Float 


COMMON  BLOCKS;  C30,  DEFVAR,  ZEES 

SUBROUTINES  CALLED;  INSGET,  lORFL,  UNCODE 


CALLED  BY:  BLDOTH 

Me  thod ; 

The  method  used  by  XEDEFN  is  best  understood  by  following  figure  125. 
Basically,  the  subroutine  processes  the  execution  instructions  for  a 
DEFINE  as  they  appear.  The  current  value  is  maintained  in  local 
variable  Q and  the  new  value  is  stored  in  local  variable  R.  For  each 
instruction  a branch  (IBR)  is  set  and  then  the  remainder  of  the  instruc- 
tion is  u^ed  to  determine  the  value  of  R.  Then  the  branch  is  made  and 
whatever  operation  on  Q and  R is  called  for  is  carried  out  with  the 
result  placed  in  Q.  The  final  value  is  stored  in  common  block  DEFVAR 
indexed  by  NUMBER. 
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Figure  125,  Subroutine  XEDEFN  (Part  1 of  4) 
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Figure  125.  (Part  2 of  4) 
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Figure  125.  (Part  3 of  4) 
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8.9  Subroutine  PLOTDATA* 


PURPOSE: 

To  plot  geographic  data 

ENTRY  POINTS: 

PLOTDATA 

FORMAL  PARAMETERS: 

None 

CCWMON  BLOCKS: 

CIS,  C20,  C30,  OOPS,  PLTPRO,  PLTSPE,  PRWSP, 
SCHEME,  TAPES,  ZEES 

SUBROUTINES  CALLED: 

GETNXT,  HOUSKE,  H0USK2, 
PIECEI,  PIECEN,  PIECEl, 
PROJCT,  PR0JT2,  UNCODE 

INSGET,  NEWPEV,  NEXTTT, 
PIECE3,  PIECE4,  PICS, 

CALLED  BY: 

ENTMOD  (EIM) 

Method: 

First  the  SETTING  clause  Is  read  for  changes  to  the  normal  settings  of 
the  plot  selection  factors  (SCALE,  LAT,  LONG,  etc.).  Next  the  plot  tape 

Is  initialized  through  calls  to  PIECEIT  and  HOUSKEEP.  The  general 
method  from  then  on  is  for  each  of  the  types  of  plots  desired:  penetra- 
tion corridors,  depenetration  corridors,  refuel  points  and  recovery 
bases.  A preset  retrieval  scheme  Is  read  from  subroutine  data  (arrays: 
SCHA,  SCHB,  SCHC  and  SCHD)  Into  common  block  SCHEME.  The  value  for  SIDE 
is  inserted  and  GETNXT  is  used  to  retrieve  each  desired  item  for  the 
plot.  The  coordinates  are  then  adjusted  by  PICS  or  PROJT2  and  PIECEIT 
or  PIECENUM  called  to  perform  the  plot. 

Subroutine  PLOTDATA  Is  Illustrated  In  figure  126. 


*Main  routine  of  overlay  PLOTIT 
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Figure  126.  (Part  11  of  17) 
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Figure  126.  (Part  14  of  17) 
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8.9.1  Subroutine  PICS 


PURPOSE;  Calculates  coordinates  for  PICl  and  PIC2 

ENTRY  POINTS;  PICS 


FORMAL  PARAMETERS; 

IMAP; 

Map  type  - 

1 - PICl 

2 - PIC2 

HLA; 

Latitude 

HLO; 

Longitude 

COMMON  BLOCKS; 

PRINSP 

SUBROUTINES  CALLED; 

None 

CALLED  BY; 

PLOTDATA 

Method; 


The  process  Is  to  determine  which  points  would  fall  within  the  standard 
plot  area  and  to  scale  these  points  properly  for  the  plot.  The  switch 
IFLAG  is  set  to  one  if  either  latitude  or  longitude  fall  outside  the 
plot  boun'’*' 


See  figure  127  for  the  precise  method. 


i 

1 

I 


I 


I 


651 


Figure  127.  Subroutine  PICS  (Part  1 of  3) 
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Figure  127.  (Part  2 of  3) 
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8.9.2  Subroutine  PROJCT 

PURPOSE ; Calculate  coordinates  for  PIC3,  PIC4  and  PICS 


ENTRY  POINTS; 
FORMAL  PARAMETERS; 


COMMON  BLOCKS; 
SUBROUTINES  CALLED; 
CALLED  BY: 


PROJCT,  PROJT2 

DTORAD:  Conversion  factor,  degrees  to  radius 
SUBHLA:  Latitude 
SUBHLO:  Longitude 

PLTPRO,  PLTSPE,  XMEDGE 

None 

PLOTDATA 


Method; 

Entry  PROJCT 

First  the  SCALE  Is  set  if  it  is  zero.  Next  the  scaled  origin  latitude 
(PORGS)  and  longitude  (BANGL)  are  calculated.  Finally  the  scaling 
!,  factor  SCLENOW  Is  calculated. 

\ Entry  PR0JT2 

The  scaled  latitude  and  longitude  are  calculated  and  adjusted  according 
to  the  origin. 

Subroutine  PROJCT  is  Illustrated  in  figure  128. 
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Figure  128.  Subroutine  PROJCT:  Entry  PROJCT  (Part  1 of  2) 
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8.10  Subroutine  SIDAC* 
PURPOSE: 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 
COMMON  BLOCKS; 
SUBROUTINES  CALLED; 
CALLED  BY; 


Creates  SIDAC  output 

SIDAC 

None 

C20,  C30,  PRINSP,  SCHEME 
CONVLL,  GETNXT,  NEXTTT 
ENTMOD  (EIM) 


Method ; 

Subroutine  SIDAC  uses  a preset  retrieval  scheme.  This  scheme  which  Is 
designed  to  retrieve  BLUE  targets  Is  moved  Into  common  block  SCHEME. 
Then  GETNXT  Is  called  to  retrieve  the  Indlvldtial  targets.  As  each 
target  Is  retrieved,  some  additional  fields  are  calculated  and  then 
the  properly  formatted  record  Is  written  on  unit  35.  When  all  targets 
have  been  processed,  a record  of  9's  Is  written,  an  end  of  file  Is 
added  and  the  tape  rewound. 

Then  the  scheme  Is  altered  to  retrieve  RED  targets  and  the  process 
repeats.  The  output  unit  for  RED  targets  Is  36. 

Subroutine  SIDAC  Is  Illustrated  In  figure  129. 


*Maln  routine  of  overlay  BSIDAC 
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Figure  129.  (Part  2 of  3) 
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8.11  Subroutine  TABBLE* 

PURPOSE!  To  produce  TABLE  output 

ENTRY  POINTS;  TABBLE 

FORMAL  PARAtffiTERS;  None 

COMMON  BLOCKS:  C20,  C30,  OOPS,  PRINSP,  SCHEME 

SUBROUTINES  CALLED:  CONVLL,  GETNXT,  HEAD,  INSGET,  NEXTTT 

r.AT.T.F.n  RY!  ENTMOD  (EIM) 

Method; 

The  general  method  is  for  a preset  retrieval  scheme  to  be  set  in  common 
block  SCHEME  and  executed  by  GETNXT.  Each  record  retrieved  is  then 
written  in  its  particular  format.  First  the  input  is  checked  for  a 
UNIT  clause  which  could  change  the  output  tape  unit  (default=35)  and 
for  a WHERE  clause  which  could  alter  the  value  of  the  attacking  side 
(default=BLUE) . 

Next  the  retrieval  scheme  to  retrieve  targets  on  the  defending  side  of 
CLASS=MISSIL  (array  SCHA)  is  stored,  executed  and  the  output  written. 
Then  the  scheme  to  retrieve  attacking  weapon  types  of  CLASS»BMBWEP 
(SCHB)  is  stored,  executed  and  the  output  written.  This  scheme  is  then 
altered  to  retrieve  CLASS=MSLWEP  and  executed. 

Next  the  retrieval  scheme  to  retrieve  attacking  warhead  types  of  CLASS” 
BOMB  (array  SCHC)  is  stored  and  executed.  This  same  scheme  is  then 
altered  consecutively  to  retrieve  and  write  out  the  CLASSs  RV,  MRV,  MIRV 
and  ASM. 

Now  the  retrieval  scheme  to  retrieve  the  attacking  missile  bases  (array 
SCHD)  is  stored,  executed  and  the  bases  written  out.  This  scheme  is 
altered  to  retrieve  bomber  bases  and  executed.  Finally,  the  scheme 
for  offensive  recovery  bases  (array  (SCHE)  is  used  to  retrieve  and 
display  them. 

Subroutine  TABBLE  is  Illustrated  in  figure  130. 


*Maln  routine  of  overlay  STABLE 
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Figure  130.  Subroutine  TABBLE  (Part  1 of  13) 
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SECTION  9.  GENERAL  UTILITIES 
9.1  Purpose 

This  section  contains  descriptions  of  a variety  of  subroutines  and 
functions,  performing  various  tasks,  used  throughout  the  QUICK  system. 
Common  blocks  used  by  these  programs  are  described  In  table  24. 

Note  that  for  the  majority  of  subroutines  given  in  this  section,  the 
standard  subsection  referred  to  as  'CALLED  BY'  Is  omitted.  This  occurs 
for  subroutines  that  are  executed  by  a large  number  of  calling  subroutines 
and  where  definition  would  be  quite  lengthy  and  most  difficult  to 
maintain. 
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Table  24.  Utility  Common  Blocks  (Part  1 of  5) 


Block 

Array  or  Variable 

Description 

ASNKEY 

ATLST 

ASNKEY 

Contains  reference  code  of  ASNTYP  record 
retrieved  by  GETTAR. 

Provides  communication  with  subroutine 

ATFNDR 


ATNUMB(IOO) 

Attribute's  Identifying  number 

ATADD(IOO) 

Attribute's  address 

ATTYP(IOO) 

Attribute's  mode  (=1,  integer,  =2,  alpha 
betlc,  =3,  floating  point) 

ATRA(IOO) 

Attribute's  lower  limit 

ATRB(IOO) 

Attribute's  upper  limit 

NUMAT 

Number  of  attributes 

CLASSES 

CLASSES (60) 

List  of  values  for  attribute  ACLASS 

DATPK 

MASK(36) 

Data  word  masks  - MASK(i)  masks  out  bits 
(36-1)  through  35) 

ISHTAB(36) 

Data  word  shift  - ISHTAB(i)  = 2^"^ 

DEFVAR 

VARXX(IOO) 

Value  of  DEFINE  variable 

DSPFRM 

Provides  conmunlcatlon  with  subroutine 
FC»MAK 

F(»MAR(50) 

Format  being  constructed 

IFPNT 

Pointer  to  next  character 

IFLNG 

Number  of  words  In  format 

ERRCODE 

KABCmX 

. Error  code  for  AB(»T  (default=61) 

KWARN 

Error  code  for  WARNING  (default=62) 

ERRMESS 

lABORT(lO) 

Error  message  for  ABORT 

IWARN(IO) 

Error  message  for  WARNING 

I 


Table  24.  (Part  2 of  5) 


Block 

Array  or  Variable 

Description 

INMAP 

INMAP 

Indicator  If  subroutine  MAPEDGE  has  been 
executed 

XLBL 

Plot  point  number 

LMBRT 

FL 

Lambert  projection  parameter 

FK 

Lambert  projection  parameter 

ORDER 

SCHORD(IOO) 

Record  type  numbers  In  retrieval  scheme 
order 

S(»DNM(100) 

Record  type  name  In  retrieval  scheme 
order 

LENSCH 

Length,  In  words,  of  retrieval  scheme 

PLTPROJ 

MERCAT 

Projection  type 

IDIREC 

Indicator  of  plot  direction  (+1  for  coun- 
ter - clockwise,  -1  for  clockwise) 

FLMDAO 

Longitude  of  Origin 

PHIO 

Latitude  of  Origin 

THETAO 

Angle  between  meridian  and  x-axls 

PHIl 

Standard  parallel  closest  to  equator 

PHI  2 

Standard  parallel  closest  to  pole 

AILIO 

Fractional  part  of  log  for  PHIl 

A2L10 

Fractional  part  of  log  for  PHI2 

PLTSPEC 

ISZE 

Plot  size  Indicator  =0  for  50x40,  =1  for 
20x  20,  =2  for  10  x 10 

PLTSPEC 

XAXIZN 

Length  of  x-axls  In  Inches 

YAXLEN 

Length  of  y-axis  in  Inches 

FACTOR 

Number  of  plots  per  page 

J 


1 

i 

■j 
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Table  24.  (Part  3 of  5) 


Block 

Arrav  or  Variable 

Descrlotlon 

SCALE 

Ratio  of  world  unit  to  plot  units 

POLITE 

SI 

Latitude  of  beginning  Interpolation 
point 

T1 

Longitude  of  beginning  Interpolation 
point 

S2 

Latitude  of  Interpolation  end  point 

T2 

Longitude  of  Interpolation  end  point 

FACTOR 

Interpolation  factor  or  fraction 

SR 

Latitude  of  Interpolated  point 

TR 

Longitude  of  Interpolated  point 

PRNSP 

PRINON 

Switch  to  control  optional  prints,  = True 
produce  print,  = False,  do  not  produce 
print 

PSCCM 

Used  to  communicate  with  subroutine 

PSREC 

RECORD (100) 

Body  of  print/sort  record 

RECLEN 

Number  of  words  in  record 

Used  to  communicate  with  subroutine 

ATFNDR 

RTLIST(IOO) 

List  of  record  type  numbers  for  retrieval 
scheme 

MUMREC 

Number  of  record  types  in  RTLIST 

HDREC 

Record  type  name  of  primary  header 

RTLST 

HCLASS 

CLASS  value  of  primary  header 

HSIDE 

SIDE  value  of  primary  header 

HOPT 

CLASS/SIDE  option  for  retrieval  scheme 

Table  24.  (Part  4 of  5) 


[j 

N 


t' 

1; 


Block 

Array  or  Variable 

Description 

JHDR 

Record  type  number  of  primary  header 

SCHEME 

POINT 

Pointer  to  current  retrieval  scheme 
Instruction 

SCHEME (200) 

Retrieval  scheme  (section  4.4) 

SCRTCH 

LIST (300) 

Storage  space  used  as  work  area  by  sev- 
eral subroutines 

SIDES 

SIDES (5) 

List  of  values  for  SIDE 

SNDMIN 

XMIN 

Minimum  value  of  x-coordlnator 

YATXMN 

Y-coordlnate  at  minimum 

X -coordinate 

XATYMN 

X-coordlnate  at  minimum 

Y-coordlnate 

YMIN 

Minimum  value  of  y-coordlnates 

ISUMIT 

Number  of  points  off  the  graph 

SORSCH 

SRTSCH(IOO) 

Sort  scheme  (see  section  6.10) 

TAPES 

• 

PLOTTAPE 

Logical  unit  number  for  plot  tape 

PIECTAPE 

Logical  unit  number  for  tape  for  non- 
plotted  points 

WAROUT 

IWARFL 

Logical  unit  number  for  printed  output 

XMEDGE 

YMEDGE 

Map  edge 

XLL 

X-coordlnate  of  last  point 

YLL 

Y-coordlnate  of  last  point 

XL 

X-coordlnate  of  point  to  be  plotted 

YL 

Y-coordlnate  of  point  to  be  plotted 
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Table  24.  (Part  5 of  5) 


Block  Array  or  Variable  Description 

XWEDGE  Converted  value  for  latitude  of  origin 

BANGL  Converted  value  for  longitude  of  origin 


9,2  Subroutine  ABORT 


PURPOSE; 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 
COMMON  BLOCKS; 
SUBROUTINES  CALLED; 


Entry  ABORT;  To  force 
Entry  WARNING:  To  print 
possible 

ABORT,  WARNING 
None 

ERRCODE,  ERRMESS 
FXOPT,  FXEM 


a core  dump  on  demand, 
a warning  message  and 
error  diagnostics. 


Method ; 

This  subroutine  prints  error  diagnostics  and  an  optional  core  memory 
dump.  The  error  diagnostics  include; 

Error  message 

Name  of  routine  (ABORT  or  WARNING) 

A trace  of  the  chain  of  subprogram  calls  back  to  the  main  program. 

The  error  message  is  contained  in  common  /ERRMESS/.  This  block  consists 
of  two  arrays,  each  of  10-element  length,  lABORT  and  IWARN. 

The  message  to  be  printed  is  contained  In  array  lABORT  for  entry  ABORT, 
and  IWARN  for  entry  WARNING.  The  calling  program  may  place  any  message 
in  these  arrays. 

If  entry  ABORT  is  used,  the  error  diagnostics  will  terminate  with  a Q6 
abort  and  core  memory  dump,  if  requested. 

Conmon  /ERRCODE/  consists  of  two  error  codes,  KABORT  and  KWARK.  They 
are  preset  to  61  and  62,  respectively.  These  codes  are  set  aside  by 
the  operating  system  as  user  defined.  Each  call  to  this  subroutine 
results  In  a call  to  FXOPT  to  set  the  abort  option  followed  by  a call 
to  FXEM  to  print  the  message  and  execute  the  option  selected. 

Subroutine  ABORT  is  Illustrated  In  figure  131. 


START 


Entry 

ABORT 


Entry 

WARNING 


9,3  Subroutine  ATFNDR 


To  retrieve  attributes  Information  and  build  a 
list  of  record  types 


SmSSK: 


ENTRY  POINTS; 
FORMAL  PARAMETERS; 
C(M10N  BLOCKS; 
SUBROUTINES  CALLED; 
CALLED  BY: 

Method; 


ATFNDR 

None 

ATLST,  CIO,  C20,  C30,  OOPS,  RTLST 
HDFND,  HEAD,  NEXTTT,  PRIMHD 
BLDOTH,  BUILDTAB,  DSPMAK 


For  a discussion  of  the  method  see  also  section  4.4. 


Step  One 

The  ATRIB  chain  Is  retrieved.  Each  member  of  the  chain  Is  matched 
against  the  Input  attribute  list  ATNUMB.  When  a match  Is  found  the 
address,  type,  lover  and  upper  range  are  stored  In  comnon  block  ATLST 
(ATADD,  ATTYP,  ATRA,  ATRB,  respectively).  Next  a branch  Is  made  on  the 
type  of  the  attribute  vis-a-vis  Its  presence  on  record  types  (see  section 
4.4).  Single  attributes  have  their  record  types  saved  In  RTLIST.  Con- 
trol attributes  have  their  controlled  record  type  saved  in  RTLIST. 
Multiple  attributes  are  saved  In  MLAT. 

Step  Tvo 

The  primary  header  Is  determined  either  by  using  the  value  of  HCLASS 
(If  It  Is  nonblank)  In  a call  to  HDFND  or  by  using  the  highest  numbered 
record  type  in  a call  to  PRIMHD,  The  primary  header  is  added  to  RTLIST. 

Step  Three 

The  ATRIB  chain  Is  now  searched  for  the  multiple  attributes  (MSAT).  For 
each  attribute  In  MLAT,  RTLIST  Is  coiiq>ared  to  Its  list  of  record  types. 

If  a match  Is  found  the  process  takes  no  action. . If  no  match  is  found 
all  the  record  types  for  the  multiple  attribute  are  saved  in  MLTLST. 

Step  Four 

Now  a 'chain  down'  process  Is  used  starting  with  the  primary  header. 

At  each  level  of  the  hierarchy,  all  those  records  types  which  are 
details  of  chains  for  which  the  record  type  In  question  (l.e.,  the 
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primary  header)  Is  master  are  compared  to  the  list  of  multiple  attribute 
record  types  (MLTLST).  Any  matchs  are  added  to  RTLIST.  Then  the  first 
record  type  vhere  a match  was  found  Is  used  as  the  master  for  the  next 
hierarchical  level  and  so  on. 


Subroutine  ATFNDR  Is  Illustrated  In  figure  132. 
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Figure  132.  Subroutine  ATFNDR  (Part  1 of  6) 
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Save  Values  for 
Address,  Type 
Upper  and  Lower 
Limits.  Set 
Type  Switch  (IZ) 


Multiple 

Attribute? 


Control 

Attribute? 


Call  NEXTTT 
to  Get 

LINKER  Record 


Add  Record 
Type  to  List 
if  Not 

There  Already 


All 

Attributes 

Found? 


Add  to  List 
of  Multiples 


Call  NEXTTT  to 
Get  Next 
LINKER  Record 


Master 

Record 

Type? 


Figure  132.  (Part  2 of  6) 
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Set  Value 
for  Scheme 
Header  Option 


Value 

for 

Class? 


Call  HDFND  to 
Find  Primary 
Header 


Number  of 
Records 
«0? 


Set  INMAX  to 
Largest  Record 
Type  Number 


Header  Found? 


Call  PRIMHD 
to  Find 

Primary  Header 


Make  Sure 
Header  is  in 
Record  Type 
List 


Any  Multiples? 


Set  Header 
Number  and 
Name 


RETURN 


Set  Number 
Found  and 
in  List  to  0 


Call  HEAD  to 
Start  Search  ofii 
ATRIB  Chain 


Figure  132.  (Part  3 of  6) 
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Found 


Call  NEXTTT  to 
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End  of 
Chain? 


Call  NEXTTT  to 
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End  of 
Chain? 


Figure  132.  (Part  U of  6) 
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9.4  Function  ATN2PI 


PURPOSE; 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 
COMMON  BLOCKS; 
SUBROUTINES  CALLED; 
Method ; 


To  calculate  the  arc  tangent  function  over  the 
Interval  0 to  2n. 

ATN2PI 

Y,  X (floating  point  numbers) 

None 

None  ^ ' 


This  function  calculates  the  arc  tangent  of  the  value  (Y/X).  The  arc 
tangent  returned  to  the  calling  program  lies  within  the  Interval  from 
0 to  2tt.  The  operating  system  function  ATAN  returns  the  principal  value 
of  the  arc  tangent;  l.e.,  over  the  Interval  -Tr/2  to  +TT/2.  ATN2PI  uses 
ATAN  to  compute  the  principal  value  of  the  arc  tangent  of  Y/X.  The  signs 
of  X and  Y are  Investigated  to  determine  the  quadrant  of  the  arc  tangent. 
The  principal  value  Is  then  modified  to  return  a value  within  the  correct 
quadrant . 

Function  ATN2PI  Is  Illustrated  In  figure  133. 
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9.5  Subroutine  CINSGET 

PURPOSE;  Call  INSGET  and  update  Index 

ENTRY  POINTS;  CINSGET 

FORMAL  PARAMETERS;  L;  Array  for  data  from  INSGET  call 

LOG;  Starting  Index 

N;  Number  of  words  from  INSGET  call 

LOCN;  Ending  Index  +1 

COMMON  BLOCKS;  None 

SUBROUTINES  CALLED;  INSGET 

Method; 

This  subroutine  calls  INSGET  In  order  to  place  N words  Into  array  L, 
LOC  Is  the  starting  position  Into  INSGETs  arrays.  LOCN  Is  the  next 
location  Into  INSGET  array's  after  CINSGET  exits. 

Subroutine  CINSGET  Is  illustrated  in  figure  134. 


call  INSGET 
for  N 
Locations 


Figure  134.  Subroutine  CINSGET 
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9.6  Function  DELLONG 


PURPOSE : To  compute  the  signed  difference  between  two 

longitudes. 

ENTRY  POINTS:  DELLONG 

FORMAL  PARAMETERS:  A - A floating  point  longitude 

B - A floating  point  longitude 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  None 

Method ; v 

The  input  longitudes  are  expressed  as  decimal  degrees  measured  in  a 
westerly  direction.  West  longitudes  are  in  the  range  0-180  degrees; 
east  longitudes  are  in  the  range  180-360  degrees.  Longitudes  0 and  360 
are  the  Greenwich  meridian.  This  function  returns  the  value  of  the 
difference  between  the  two  longitudes.  The  sign  of  the  value  is  deter- 
mined as  follows: 

Positive  if  A >.  B 
Negative  if  A < B. 

Function  DELLONG  is  illustrated  in  figure  135. 
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9.7  Function  DIFFLONG 

PURPOSE : To  compute  the  difference  between  two  longitudes 

whose  sign  is  determined  by  the  shorter  direction 
of  travel  from  the  first  meridian  to  the  second. 

ENTRY  POINTS;  DIFFLONG,  DIFFLNG* 

FORMAL  PARAMETERS:  XI  - Floating  point  longitudes 

X2  - Floating  point  longitudes 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  None 

Method ; 

The  input  longitudes  lie  in  the  interval  0-360  degrees  with  west  longitudes 
in  the  range  0-180  degrees  and  east  longitudes  in  the  range  180-360  degrees. 
Longitudes  0 and  360  define  the  Greenwich  meridian.  This  function  returns 
a value  whose  absolute  value  is  equal  to  the  number  of  degrees  of  longitude 
traversed  in  using  the  shorter  great  circle  route  from  meridian  XI  to 
meridian  X2.  The  sign  is  positive  if  the  direction  of  travel  is  eastward 
and  negative  otherwise. 

Function  DIFFLONG  is  illustrated  in  figure  136. 


j 


* 


Diiplicate  entry  for  DIFFLONG. 


START 


r, 


Figure  136.  Function  DIFFLONG 

700 


9.8  Function  DISTF 

PURPOSE ; To  compute  great  circle  distances  in  nautical 

miles. 

ENTRY  POINTS;  DISTF,  DIST,  DSTF 

FORMAL  PARAMETERS;  LATl  - Latitude  of  point  1 

LONGl  - Longitude  of  point  1 
IAT2  - Latitude  of  point  2 
L0NG2  - Longitude  of  point  2 

DIN  - Difference  in  Longitudes  for  Entry  DSTF 
COMMON  BLOCKS;  None 

SUBROUTINES  CALLED;  None 

Method ; 

The  purpose  of  this  function  is  to  calculate  the  great  circle  distance 
between  two  points  using  the  law  of  cosines  for  a spherical  triangle. 

There  are  three  entry  points  to  this  function:  DISTF,  DSTF,  and  DIST. 
DISTF  uses  the  latitudes  and  longitudes  of  the  two  points  to  calculate 
the  distance.  DSTF  is  the  same  as  DISTF  except  that  the  difference  in 
longitude  is  passed  instead  of  the  two  longitudes.  DIST,  which  is  only 
called  by  EVALPLAN  in  EVALALOC,  is  the  same  as  DISTF  except  that  it 
returns  the  square  of  the  distance. 

The  formal  parameters  are  all  type  real.  The  coordinates  are  input  in 
degrees  with  south  latitude  and  east  longitude  coordinates  being 
negative.  The  value  returned  is  in  nautical  miles. 

Function  DISTF  is  illustrated  in  figure  137. 
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9.9  Subroutine  DOTLINE 


PURPOSE : To  plot  a dotted  line  between  two  points. 

ENTRY  POINTS;  DOTLINE 

FORMAL  PARAMETERS:  XI  - x-coordlnate  of  first  point 

Y1  - y-coordlnate  of  first  point 

X2  - x-coordinate  of  second  point 
Y2  - y-coordinate  of  second  point 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  PLOT* 

Method ; 

To  draw  a dotted  line  between  two  polnts>  the  pen  has  to  plot  and  skip 
segments  of  the  line  alternately.  The  distance  between  the  two  points 
Is  computed  and  after  each  segment  of  plotted  line,  the  distance  traveled 
by  the  pen  from  the  first  point  Is  compared  with  the  length  of  the  line. 
If  the  line  Is  not  yet  completed,  a constant  segment  of  the  line  Is 
skipped  and  the  next  segment  plotted  until  the  second  point  Is  reached. 

Subroutine  DOTLINE  Is  Illustrated  in  figure  138. 


Figure  138.  Subroutine  DOTLIHE 
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9.10  Subroutine  FINDCLAS 

PURPOSE;  Finds  a list  of  values  for  the  attribute  ACLASS 

ENTRY  POINTS;  FINDCLAS 

FORMAL  PARAMETERS;  None 

CCTflCN  BLOCKS;  CIO,  C30,  CLASSES 

SUBROUTINES  CALLED;  HEAD,  NEXTTT 

Method; 

This  subroutine  uses  the  directory  portion  of  the  data  organization 
Index.  First  the  INDATR  record  for  ACLASS  Is  found.  Then  the  VALIST 
chain  Is  retrieved  with  each  value  contained  thereon  stored  In  comnon 
block  CLASSES. 

Subroutine  FINDCLAS  Is  Illustrated  In  figure  139. 


Call  HEAD 
for  List  of 
Attributes 


End  of 
Chain? 


Print 

Error 


RETURN 


Call  NEXTTT  on 
the  Chain  I 
of  Attributes 


Attribute 
» 'ACLASS'? 


Call  NEXTTT  on 
Chain  of 
Legal  Values 


End  of 
Chain? 


Add  Class  Name 
to  the 
List 


Figure  139.-  Subroutine  FINDCLAS 
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9,11  Subroutine  FINDS IDE 

PURPOSE;  Make  a list  of  the  valid  values  for  attribute 

SIDE 

ENTRY  POINTS;  FINDS IDE 

FORMAL  PARAMETERS;  None 

Ci^lMDN  BLOCKS;  CIO,  C25,  SIDES 

SUBROUTINES  CALLED;  HEAD,  NEXTTT 

Method; 

This  subroutine  uses  the  NAMEZ  chain  of  the  data  organization  Index. 

By  retrieving  the  entire  chain  all  values  for  SIDE  that  have  been  used 
to  create  headers  are  found.  The  unique  values  are  stored  In  common 
block  SIDES. 

Subroutine  FINDSIDE  Is  Illustrated  In  figure  140. 
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Figure  140.  Subroutine  FINDSIDE 
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9.12  Subroutine  FORMAK 
PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 


Inserts  character  strings  into  array  FORMAR 
FORMAK 


CCMMDN  BLOCKS: 
SUBROUTINES  CALIJID; 
CALLED  BY: 

Method: 


STRING:  String  of  characters  for  insert 
NUMBER:  Number  of  characters  In  string 

DSPFRM 

None 

BLDOTH,  DSFMAK 


First  NUMBER  is  checked.  If  It  is  zero  this  is  an  initializing  call. 
The  FORMAR  array  is  blanked  out.  IFPNT  (the  FORMAR  character  bit 
pointer)  is  set  to  zero  and  IFLNG  (the  FORMAR  word  pointer)  is  set  to 
one . 

If  NUMBER  is  nonzero,  ISPT  (the  STRING  character  bit  pointer)  is  set 
to  zero  and  ISLN  (the  STRING  word  pointer)  is  set  to  one.  Then  the 
following  process  takes  place  NUMBER  times.  The  STRING  character 
defined  by  ISPT  and  ISLN  is  stored  in  the  FORMAR  character  defined  by 
IFPNT  and  IFLNG.  Both  ISPT  and  IFPNT  are  Incremented  by  6.  If  either 
exceed  30,  it  is  reset  to  0 and  its  corresponding  word  pointer  is 
incremented . 

Subroutine  FORMAK  is  Illustrated  In  figure  141. 
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9.13  Function  GETCLOCK 


PURPOSE; 


ENTRY  POINTS; 

FORMAL  PARAMETERS; 
C<»gfON  BLOCKS; 
SUBROUTINES  CALLED; 
Method; 


To  return  the  current  time  in  floating  point 
minutes . 

GETCLOCK,  GETCIK  (duplicate  entry) 

X - A dummy  parameter 

None 

None 


This  assembly  language  subroutine  is  used  to  return  the  current  time  in 
floating  point  minutes. 

Function  GETCLOCK  is  illustrated  in  figure  142. 
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Figure  142.  Function  GETCLOCK 


9.14  Function  GETDATE 

PURPOSE;  To  obtain  the  current  date. 

ENTRY  POINTS;  GETDATE 

FORMAL  PARAMETERS ; X - A dummy  parameter 

COMMON  BLOCKS;  None 

SUBROUTINES  CALLED;  DATIM 

Method ; 

This  function  calls  the  system  function  DATIM  to  obtain  the  current  date 
In  the  format  MM/DD/YY.  When  called  In  a FORTRAN  program,  this  function 
will  return  the  date  In  a character  *6  (MMDDYY). 

Function  GETDATE  Is  Illustrated  In  figure  143. 
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9 J.5  Subroutine  GETNXT 
PURPOSE  t Execute 

ENTRY  POINTS;  GETNXT 

FORMAL  PARAMETERS;  BRANCH: 


a retrieval  scheme 


l^normal  return 
2>end  of  scheme 


COMMON  BLOCKS:  CIO,  C15,  C20,  C25,  C30,  SCHEME 

SUBROUTINES  CALLED:  HEAD,  NEXTTT,  RETRY 

Method: 


This  subroutine  executes  the  retrieval  scheme  In  common  block  SCHEME. 
Its  execution  presupposes  that: 

1.  A retrieval  scheme  has  been  stored  in  SCHEME 

2.  The  INDRCT  record  has  been  retrieved  for  the  record  type  of 
the  primary  header 

3.  The  variable  POINT  has  been  set  to  the  next  scheme  Instruction 
to  be  executed  (originally  POINT-1) 


GETNXT  begins  by  setting  BRANCH»1  and  looking  at  the  value  In  SCHEME 
Indexed  by  POINT.  The  next  step  depends  upon  the  value  of  SCHEME 
(POINT) . 


SCHEME (POINT) »1  (Get  Header) 

This  process  depends  In  part  on  the  value  of  SCHEME (POINT+1)  which 
Indicates  whether  there  are  values  for  the  CLASS  and  SIDE  attributes. 

In  any  case,  NEXTTT  Is  called  on  the  MYNAMZ  chain  until  either  a record 
Is  retrieved  which  satisfies  any  value  for  CLASS  and  SIDE  or  the  MYNAMZ 
chain  master  Is  found.  In  the  first  case,  the  Identified  header  Is 
retrieved  and  POINT  set  to  the  next  Instruction.  If  the  master  Is 
found,  the  scheme  Is  complete.  BRANCH  Is  set  2 and  the  subroutine 
exits. 

SCHEME (POINT) =2  (Get  Next  for  Chain) 

NEXTTT  Is  called  for  the  chain  named  In  SCHEME (POINT+1 ) . If  the  record 
type  retrieved  Is  the  chain's  master  ( SCHEME (POINT+2)),  POINT  is  set 
equal  to  SCHEME (POINT+3)  which  Is  the  Index  of  the  previous  Get  Next  or 
Get  Header  Instruction.  Otherwise  POINT  Is  set  to  the  next  Instruction. 


715 


? 


t 

srHKME (POINT) »3  (Head  Chain) 

HEAD  Is  called  for  the  chain  named  in  SCHEME (POINT+1)  and  POINT  Is  set 
to  the  next  Instruction. 

SCHEME (POINT) -4  (Return) 

POINT  Is  set  to  SCHEME (POINT+1)  which  Is  the  previous  Get  Next  or  Get 
Header  instruction  and  the  subroutine  exits  having  retrieved  a complete 
record  set. 

Subroutine  GETNXT  is  illustrated  In  figure  144. 
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START 


Set  BRANCH  to 
ladlcate  Record 
Found 


Set  INST  to 
Instruction  for 
Current  POINT 
Value 


RETURN 


vGet  Header/ 


Branch 
on  Type  of 
Instruction 


Set  POINT  from 
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^Set  Class  and  Side 
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:all  NEXTTT  for 
ilhaln  Named  In 
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Chain  Next 
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Figure  144.  Subroutine  GETNXT  (Part  1 of  2) 
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Figure  144.  (Part  2 of  2) 
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9.16  Subroutine  GETSTR* 


PURPOSE! 


To  obtain  the  next  Input  string  and  make  first 
Interpretation 


ENTRY  POINTS; 
FORMAL  PARAMETERS; 
COMMON  BLOCKS; 
SUBROUTINES  CALLED; 
CALLED  BY; 

Method; 


GETSTR 

None 

IPQT,  STRING 
None 

ERRFND,  INICOP,  SRM 


This  subroutine  which  is  a character-by-character  analysis  of  an  Input 
string  from  a card  image  Is  best  understood  by  reference  to  figure  145. 
Basically,  the  process  atteiiq>ts  to  discriminate  between  alphabetic  and 
numeric  data.  Special  characters  which  appear  In  array  OPRATR  also 
are  discriminated.  A string  Is  terminated  by  a blank  or  a member  of 
OPRATR. 


*Note  that  this  subroutine  resides  In  the  Main  overlay  of  COP. 
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Figure  145.  (Part  3 of  6) 
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Figure  145.  (Part  4 of  6) 
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Figure  145.  (Part  5 of  6) 
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9.17  Subroutine  GETTAR 


1 

1 


PURPOSE ; Assigns  values  for  attributes  OESIG,  SIDE,  REGION, 

ACLASS  , and  ATYPE  based  on  values  for  attributes 
CNTRYL,  CNTRYO  and  CATC(X)E 

ENTRY  POINTS:  FNDTAR,  GETDES,  GETTAR 

F(«MAL  PARAMETERS;  None 

COMMON  BLOCKS:  ASNKEY,  CIO,  C15,  C30,  SIDES 

SUBROUTINES  CALLED:  DIRECT,  FINDS  IDE,  HDFND,  HEAD,  MODFY,  NEXTTT, 

RETRY 


Method: 


Entry  GETTAR 


First  the  FINDONLY  flag  Is  set  to  false  so  that  a DESIG  value  will  be 
assigned.  Then  If  this  Is  the  first  call  to  GETTAR  various  lists  and 
tables  are  constructed.  FINDSIDE  Is  called  to  store  a list  (SIDES) 
of  legal  SIDE  values.  Vlhen  this  Is  done,  the  Assignment  table  (ASNTAB) 
fcr  each  side  Is  obtained  and  the  associated  country  code  Is  stored 
In  a table  (LEGALGC)  along  with  the  reference  code  of  Its  ASNCTY 
record  (CCIREFZ)  and  Its  maximum  (HICAT)  and  minimum  (LOCAT)  category 
ranges. 


Next  the  value  for  DESIG  Is  set  to  'WRONG'.  If  the  target  being 
checked  for  Is  the  same  country  and  category  range  as  the  last  one 
checked,  the  ASNREC  record  for  the  last  target  Is  retrieved  and  the 
searched  for  values  of  COUNTRY  and  SIDE  set.  If  the  match  was  country 
location,  skip  to  statement  100  (figure  146).  Otherwise,  return  to 
normal  process  to  find  region. 


The  normal  situation  Is  a new  target  country  or  category.  In  this  case, 
the  category  ranges  are  searched  for  the  correct  range,  then  the  proper 
country  codes  are  used  to  find  values  for  SIDE  and  REGION.  Then  the 
ASNRNG  chain  Is  searched  until  the  proper  category  range  Is  found.  If 
necessary,  both  country  codes  are  used  In  this  search.  Now  the  ASNCTY 
record  corresponding  to  the  country  code  which  resulted  in  the  match 
is  retrieved. 


Statement  100  (figure  146) 


The  reference  code  of  the  ASNREC  record,  the  country  code,  the  category 
range,  side  and  region  are  all  saved  so  that  processing  of  many  targets 
in  the  same  category  and  country  will  be  more  efficient.  The  TYPRNG 


chain  Is  now  headed  and  the  reference  code  of  the  ASNTYP  record  retrieved 
Is  saved  In  ASNKEY.  The  ALTYPE  chain  Is  also  headed  and  a check  made 
for  a legal  region.  If  call  was  to  FNDTAR,  the  subroutine  exits. 


The  ALTDES  chain  Is  now  searched  for  a DESIG  alpha  that  Is  available. 
If  none  Is  found  'ZZ999'  Is  assigned.  Otherwise,  a DESIG  assignment 
Is  made  and  the  Assignment  table  updated  appropriately. 


Entry  FNDTAR 


The  FINDONLY  switch  Is  set  to  true  and  the  GETTAR  process  followed. 


Entry  GETDES 


ASNKEY  Is  used  to  retrieve  the  current  ASNTYP  record  and  control 
passed  to  Statement  110  (figure  146). 
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1 
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Figure  146.  Subroutine  GETTAR:  Entry  GETTAR  (Part  1 of  9) 
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(Entry  FNDTAR) 


Figure  146.  Subroutine  GETTAR:  Entries  FNDTAR  and  GETDES 
(Part  9 of  9) 


9.18  Function  GLOG 
PURPOSE; 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 

COMMON  BLOCKS; 
SUBROUTINES  CALLED; 
Method ; 


This  routine  returns  values  (.T.  = True;  .F. 
False)  of  QUICK  system  packed  logical  arrays 
which  have  been  previously  set  by  SLOG. 

GLOG 

L - QUICK  logical  array 

I,  J,  K - Array  indices 
LL,  M,  N - Array  dimensions 

None 

None 


The  array  designated  by  L is  accessed.  The  position  of  the  desired 
packed  logical  value  is  determined  and  the  value  extracted  (1  = True; 
0 = False)  and  the  appropriate  logical  value  returned  in  GLOG. 


Function  GLOG  is  illustrated  in  figure  147. 


9.19  Subroutine  HOUSKEEP 

PURPOSE;  To  Initialize  the  plot  tape  and  position  the 

pen  at  the  end  of  each  plot  according  to  the 
size  of  the  plot  so  that,  If  feasible,  more 
than  one  plot  may  be  on  a single  piece  of  paper. 

ENTRY  POIOTS:  HOUSKEEP,  HUSKP2,  HUSKP3 

FORHAL  PARAMETERS:  None 

CCTOION  BLOCKS;  PLTSPEC,  TAPES 

SUBROUTINES  CALLED:  DOTLINE,  NEWPEN*,  PLOT*,  PLOTS*,  NUMBER*,  SYMBOL* 

Method ; 

One  of  the  parameters  the  user  can  choose  Is  the  size  of  the  plot  and, 
therefore,  the  ntimber  of  plots  per  page.  This  is  indicated  in  the 
variable  ISZE.  Subroutine  HOUSKEEP  tests  this  indicator  and  sets  XAXLEN 
and  YAXLEN  to  the  length  of  the  x-  and  y-axes  for  the  desired  plot  size. 
Then  it  positions  the  pen  at  the  origin  of  the  plot.  At  entry  HUSKP2, 
the  color  of  the  pen  is  changed  and  subroutine  DOTLINE  is  called  to  out- 
line the  plot.  At  entry  HUSKP3,  the  graph  number  is  printed,  the  plot 
is  ended  and  the  plot  number  is  incremented. 

Subroutine  HOUSKEEP  is  illustrated  in  figure  148. 


These  are  standard  plotting  routines  and  not  documented  in  this  manual. 
They  are  only  included  for  completeness. 
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9,20  Function  IGET 


To  unpack  a data  item  from  a storage  area 
according  to  a specified  format, 

IGET 


KEY  - A key  word  generated  by  the  function 
KEYMAKE 

INDEX  - An  index  to  the  array  lARR;  the  value 
of  IGET  will  be  extracted  from 
lARR(INDEX) 

lARR  - The  array  from  which  the  data  will  be 
extracted 

DATPK 


ABORT 


Method ; 

The  variable  KEY  is  compared  with  ISVKEY  (the  value  of  KEY  on  the 
previous  call  to  IGET).  If  they  are  not  equal,  then  the  KEY  is  unpacked 
and  the  variables  ITYPE,  NBITS,  and  NSHIFT  are  set  (see  description  of 
function  KEYMAKE),  If  KEY  and  ISVKEY  are  equal,  then  it  is  assumed  that 
ITYPE,  NBITS,  and  NSHIFT  have  been  set  by  a previous  call  on  IGET. 

If  the  data  are  unpacked  (i.e.,  ITYPE=4) , then  IGET  is  set  equal  to 
lARR(INDEX)  and  the  routine  returns.  If  ITYPEj<4,  then  lARR(INDEX)  is 
shifted  right  NSHIFT  bits,  and  now  the  rightmost  NBITS  are  placed  in 
lOUT. 

If  ITYPE=2,  then  IGET  is  set  equal  to  lOUT,  and  the  routine  returns.  If 
ITYPE=1,  then  the  proper  sign  is  attached  to  the  value  lOUT  before 
setting  the  value  of  IGET  to  lOUT  and  returning  control  to  the  calling 
program. 

If  ITYPE  does  not  equal  1,  2,  or  4,  then  the  subroutine  ABORT  is  called. 
Function  IGET  Is  Illustrated  In  figure  149. 
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PURPOSE : 

ENTRY  POINTS; 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


9.21 


Function  IGETHOB 


;1 


i 

I 


I 


PURPOSE: 

To  calculate  actual  weapon  height  of  burst 

ENTRY  POINT: 

IGETHOB 

> 

FORMAL  PARAMETERS: 

IHOB  - desired  height  of  burst 

ICNCD  - vulnerability  number 
lYU)  - weapon  yield 

IN  - nonzero  if  called  from  PLANSET 

COMMON  BLOCKS: 

None 

SUBROUTINE  CALLED: 

KNOBLANK 

CALLED  BY: 

CALCOMP,  INTRFACE 

Method; 

This  function  returns  the  actual  weapon  height  of  burst  (in  hundreds  of 
feet)  in  R format  if  called  from  program  PLANOUT.  That  is,  the  HOB  is 
contained  in  the  last  three  characters  of  the  returned  value  in  BCD  code. 
The  scaled  height  of  burst  is  returned  if  called  from  program  PL&NSET. 

The  formal  parameter  IHOB  is  an  Integer  variable  set  to  zero  for  ground 
burst  and  one  for  optimal  air  burst.  The  vulnerability  number  is  contained 
as  the  last  four  BCD  characters  of  formal  parameter  ICNCD  if  called  from 
PLANOUT.  (The  country  location  code  CNTRYLOC  is  the  first  two  characters 
of  this  parameter.)  The  vulnerability  is  contained  in  the  first  four  BCD 
characters  of  ICNCD  if  called  from  PLANSET.  The  weapon  yield  in  kilotons 
is  contained  in  formal  parameter  lYLD  in  R5  format  (right-justified  with 
zero  fill  to  left). 

The  method  of  computing  actual  HOB  is  described  in  the  Analytical  Manual, 
Volume  II,  Chapter  2,  Calculation  of  Actual  Height  of  Burst.  Function 
IGETHOB  merely  implements  that  calculation.  The  code  for  calculating  the 
adjusted  vulnerability  number  Is  very  similar  to  that  used  in  subroutine 
VLRADF  of  program  PLANSET.  Function  KNOBLANK  is  used  to  convert  the 
actual  height  of  burst  from  integer  hundreds  of  feet  to  BCD  code  in  R 
format. 


i 


i 

1 


The  input  vulnerability  code  Is  decoded  into  the  appropriate  vulnerability 
number  VN,  the  letter  ("P"  or  "Q”)»  and  the  K- factor  XK.  The  cube  root 
of  the  yield  in  megatons  is  used  to  calculate  the  adjusted  vulnerability 
number  AVN.  The  scaled  height  burst  SHOB  is  determined  by  a series  of  IF 
statements  which  use  the  table  specified  in  the  Analytical  Manual  as 
referenced  in  the  preceding  paragraph.  Finally,  the  actual  height  of 
burst  (AHOB)  is  calculated  by  multiplying  by  the  scaled  yield. 

Figure  150  Illustrates  function  IGETHOB. 
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9.22  Subroutine  INTERP 

PURPOSE : To  find  by  interpolation  the  point  (SR,  TR) 

located  some  given  fraction  of  the  distance 
from  the  point  (SI,  Tl)  to  the  point  (S2,  T2). 

ENTRY  POINTS:  INTERP 

FORMAL  PARAMETERS:  None 

COWON  BLOCKS:  POLITE 

SUBROUTINES  CALLED;  INTRPGC 

Method ; 

The  parameters  which  control  the  interpolation  are  contained  in  common 
/POLITE/  as  follows. 

a.  Input  parameters : 

51  - latitude  of  first  point 
Tl  - longitude  of  first  point 

52  - latitude  of  second  point 
T2  - longitude  of  second  point 

FACTOR  - fraction  of  distance  to  be  interpolated 

b.  Output  parameters : 

SR  - latitude  of  interpolated  point 
TR  - longitude  of  interpolated  point 

All  latitudes  and  longitudes  are  carried  internally  in  the  QUICK  system 
in  the  following  format: 

North  latitude  0.  (Equator)  to  +90.  (North  Pole) 

South  latitude  0.  (Equator)  to  -90.  (South  Pole) 

East  longitude  180.  to  360.  (Greenwich  meridian) 

West  longitude  0.  (Greenwich  meridian)  to  180. 

The  variable  FACTOR  determines  the  fraction  of  the  distance  from 
the  first  point  to  the  second  that  is  equal  to  the  distance  from  the 
first  point  to  the  interpolated  point. 


‘i 
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Subroutine  INTERP  first  determines  whether  the  fraction  FACTOR  is  within 
the  interval  0 < FACTOR  < 1.  If  not,  the  result  (SR,  TR)  is  set  to  (SI, 
Tl)  when  FACTOR  ^ 0,  or  to  (S2,  T2)  ^en  FACTOR  ^ 1,  and  the  subroutine 
returns. 

When  FACTOR  is  within  range,  however,  the  interpolation  is  to  be  per- 
formed. First,  the  difference  in  longitude  of  the  two  input  points, 

T12  = T2  - Tl,  is  computed.  If  that  difference  is  greater  than  2.8 
degrees,  INTERP  calls  the  utility  subroutine  INTRPGC  to  perform  the 
interpolation  along  the  great  circle  route  from  (SI,  Tl)  to  (S2,  T2), 
and  then  returns. 

If  |t12|  is  less  than  2.8  degrees,  INTERP  performs  a straight-line,  or 
Mercator,  interpolation  between  (SI,  Tl)  and  (S2,  T2)  by  putting; 

SR  = SI  + FACT0R(S2  - SI)  and 
TR  = Tl  + FACT0R(T2  - Tl). 

When  the  resultant  TR  is  less  than  zero,  360  degrees  are  added  to  it; 
similarly,  360  degrees  are  subtracted  from  a TR  which  is  greater  than 
360  degrees. 

Subroutine  INTERP  is  illustrated  in  figure  151. 


I 
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9,23  Subroutine  INTRPGC 

PURPOSE:  To  perform  interpolation  over  great  circle  routes. 

It  determines  a point  (SR,  TR)  located  a given 
fraction  FACTOR  of  the  distance  from  the  point 
(SI,  Tl)  to  (S2,  T2)  where  the  coordinates  are 
latitude  and  longitude. 


ENTRY  POINTS: 

FORMAL  PARA.METERS: 
COMT-ION  BLOCKS: 
SUBROUTINES  CALLED: 


INTRPGC 

None 

POLITE,  A,  B,  C 
ATN2PI,  DISTF 


Method : 

The  parameters  which  control  the  interpolation  are  contained  in  common 
/POLITE/  as  follows: 


a.  Input  parameters : 

51  - latitude  of  first  point 
Tl  - longitude  of  first  point 

52  - latitude  of  second  point 
T2  - longitude  of  second  point 

FACTOR  - fraction  of  distance  to  be  interpolated 

b.  Output  parameters: 

SR  - latitude  of  interpolated  point 
TR  - longitude  of  interpolated  point 

All  latitudes  and  longitudes  are  floating  point  variables  giving  the 
data  in  degrees  in  standard  QUICK  format.  The  variable,  FACTOR, 
determines  the  fraction  of  the  distance  from  the  first  point  to  the 
second  that  is  equal  to  the  distance  from  the  first  point  to  the  inter- 
polated point. 

For  the  purpose  of  this  description,  we  assume  now  a right-handed 
coordinate  system  shown  in  figure  152  where  the  angle  a is  the  longi- 
tude, measured  east  from  the  zero  meridian  (located  along  the  X-axis) 
Here  the  latitude  is  given  by  the  angle  6.  Then  the  unit  vector  r^ 

associated  with  the  latitude  6.  and  longitude  is  given  by: 


/ cos  a.  cos  6 . 

/ ' ' 
r.  = I sin  a.  cos  6. 

\ sin  6. 

' 1 


Assume  we  are  given  the  unit  vector  r^  located  at  (oj,  6^  and  the  unit 
vector  r^  determined  by  (a^,  and  the  angle  6 between  them.  We  wish 

to  find  a unit  vector  r in  the  plane  determined  by  r^  and  r2  some  given 
angle  0^  from  rj^.  To  do  this  we  make  use  of  the  following  three  vector 
relations : 


(rj  X r2)  • r = 0 

rj  • r = cos  6j 
r2  • r = cos  8^ 
where  02  = 6 - 0^  . 


These  relations  may  be  expanded  as  follows; 


t’'21^3-^ll’^23^y  " 

^^11^22‘’’l2^21^^  ^ ° 

rii  X . 

^12  y " 

rj2  z = cos 

^21  ^ " 

^22  y " 

r23  z = cos 

®2 

where  r = (x,y,z).  This  equation  has  a unique  solution  in  x,  y,  and  z 
provided  0 0 or  0 n,  since  the  determinant: 

(r^  X r2)  = sin  0 

is  not  equal  to  0.  Now  since  the  resultant  vector  r is: 

/x\  /cos  a cos  6\ 

r = I y I * I sin  a cos  6 j 
\ z / \sin  6 / 
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then  the  desired  point  (a,  6)  is  given  by: 


6 = sin 


where  the  value  of  the  arc  tangent  is  not  necessarily  its  principal 
value.  (Function  ATN2PI  is  used  to  calculate  this  value.) 

To  obtain  0 and  6^  when  FACTOR  is  known,  observe  that: 

if:  D is  the  great  circle  distance  from  the  point  (a  , 6 ) to  the 
point  (a^, 

R is  the  radius  of  the  earth 

then:  9 = D/R 

e^=  FACTOR-0 

Subroutine  INTRPGC  is  illustrated  in  figure  153. 


Convert  to 
Radians 


Figure  153.  Subroutine  INTRPGC 


9.24  Subroutine  INTPIECE 
PURPOSE; 


To  interpolate  between  two  points  where  one 
falls  on  and  the  other  off  the  graph. 


ENTRY  POINTS; 


INTPIECE 


FORMAL  PARAMETERS; 


XOUT 

YOUT 

XIN 

YIN 

XBNDRY 


YBNDRY 


XEDGE 

YEDGE 


x-coordinate  of  point  off  graph 
y-coordinate  of  point  off  graph 
x-coordinate  of  point  on  graph 
y-coordinate  of  point  on  graph 
Indicator  for  XOUT  (=  -1  if  XOUT 
is  within  limits  of  x-axis;  ■=  0 
if  XOUT  off  zero  edge;  * length  of 
x-axis  if  XOUT  off  right  hand  border) 
Indicator  for  YOUT  (=  -1  if  YOUT 
is  within  limits  of  y-axis;  = 0 
if  YOUT  off  zero  edge;  * length  of 
y-axis  if  YOUT  off  top  border 
Computed  x-coordinate  of  interpo- 
lated point 

Computed  y-coordinate  of  interpo- 
lated point 


C(»1M0N  BLOCKS; 


None 


SUBROUTINES  CALLED; 


None 


Method : 


The  slope  of  the  connecting  line  between  the  two  points  is  computed. 

If  only  one  of  the  coordinates  of  the  point  off  the  graph  is  outside 
its  limits,  the  point  where  this  line  crosses  the  border  is  computed 
and  adjusted  by  the  slope.  If  both  coordinates  of  the  point  off  the 
graph  are  outside  their  limits,  the  slope  of  the  line  connecting  the 
corner  of  the  map  and  the  point  on  the  graph  has  to  be  computed  and 
compared  with  the  slope  of  the  line  between  the  two  points  to  determine 
on  which  border  this  line  crosses  it.  Then  the  border  point  can  be 
interpolated  as  above. 


Subroutine  INTPIECE  is  illustrated  in  figure  154. 
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Figure  154,  Subroutine  INTPIECE 


754 


t- 

I 


9.25  Subroutine  lORFL 
PURPOSE; 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 

COMMON  BLOCKS; 

SUBROUTINES  CALLED; 

Method; 

First  the  Input  value  Is  checked  to  see  If  It  Is  a floating  point  zero. 

If  so  the  routine  exits.  If  not,  bits  8 and  9 of  the  value  are  compared. 
If  they  are  equal  the  value  Is  Integer  and  Is  converted  to  floating 
point. 

Subroutine  lORFL  Is  Illustrated  In  figure  155. 


To  check  Input  value  and  convert  It  to  floating 
point  If  It  Is  Integer 

lORFL 

X;  Value  to  be  checked  and.  If  necessary, 
converted 

None 

None 
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9.26  Subroutine  IPUT 

• 

PURPOSE : 

To  pack  a given  data  item  into  a storage  area 
according  to  a specified  format. 

EKTRY  POIKTS: 

•IPin’ 

it 

FORMAL  PARAMETERS: 

KEY 

A key  word  generated  by  the  function 
KEYMAKE 

IKDEX  - 

An  index  to  the  array  lARR;  IVAL  will 
packed  into  the  word  lARR(IKDEX) 

IVAL  - 

The  data  word  which  is  to  be  packed 

lARR  - 

The  array  into  which  these  data  are  to 
be  packed 

COMMOK  BLOCKS: 

DATPK 

SUBROUTIKES  CALLED: 

Kone 

Method ; 


The  variable  KEY  is  compared  with  ISVKEY  (the  value  of  KEY  on  the 
previous  call  to  IPUT) . If  they  are  not  equal,  then  the  KEY  is  unpacked, 
and  the  variables  ITYPE,  KBITS,  and  NSHIFT  are  set  (see  description  of 
function  KEYMAKE) . If  KEY  and  ISVKEY  are  equal,  then  it  is  assumed  that 
ITYPE,  KBITS,  and  KSHIFT  have  been  set  by  a previous  call  on  IPUT. 

If  the  data  are  not  to  be  packed  (i.e.,  ITYPE=4) , then  the  variables  IK 
and  MSK  are  set  equal  to  IVAL  and  0,  respectively.  If  ITYPEj<4,  then  IK 
is  set  equal  to  the  rightmost  KBITS  of  IVAL  and  shifted  left  KSHIFT 
bits.  MSK  is  set  equal  to  MAST(KBITS),  shifted  left  KSHIFT  bits,  and 
complemented. 

The  bits  of  lARR(IKDEX)  where  the  data  are  to  be  stored  are  set  equal  to 
zero.  The  variable  IK  (which  is  IVAL  shifted  to  its  proper  position)  is 
now  added  to  lARR(IKDEX). 

Subroutine  IPUT  is  Illustrated  in  figure  156. 
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Figure  156,  Subroutine  IPUT 


758 


9.27  Subroutine  ISOFF 


PURPOSE: 

To  determine  if  a point  is  off  the  plot. 

ENTRY  POINTS: 

ISOFF 

FORMAL  PARAMETERS: 

XN 

YN 

XBNDRY  - 

YBNDRY  - 

lYESN  - 

x-coordlnate  of  point 
y-coordlnate  of  point 

X value  of  map  boundary  outside  which 
point  is  falling 

y value  of  map  boundary  outside  which 
point  is  falling 

Indicator  if  point  is  on  the  graph 
(=  0 if  point  is  on  the  graph;  >0 
if  point  is  off) 

COMMON  BLOCKS: 

PLTSPEC, 

SNDMIN 

SUBROUTINES  CALLED: 

None 

Method : 

Initially,  the  parameter  lYESN  is  set  to  zero;  XBNDRY  and  YBNDRY  are 
set  to  minus  one  and  left  at  that  value  if  the  point  is  on  the  graph. 
The  X-  and  y-coordlnates  of  the  point  which  is  to  be  tested  are  com- 
pared with  the  smallest  value  of  x,  y (zero)  and  the  largest  values 
of  X and  y (length  of  x-  and  y-axes).  If  it  is  found  that  an  x-  or 
y-value  Is  outside  the  limits,  lYESN  is  incremented  by  1;  XBNDRY  or 
YBNDRY  is  set  to  either  zero  or  the  length  of  the  respective  axis 
where  the  coordinate  exceeded  its  length.  Finally,  x and  y are  com- 
pared with  the  minimum  values  found  so  far  in  other  calls  on  ISOFF. 
If  X is  smaller  than  XMIN,  it  is  set  to  the  new  x and  y is  saved  in 
YATXMN,  If  y is  smaller  than  YMIN,  it  is  set  to  the  new  y and  x is 
saved  in  XATYMN. 

Subroutine  ISOFF  is  Illustrated  in  figure  157. 
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9,28  Function  ITLE 
PURPOSE: 


To  compare  an  input  value  with  values  in  a 
specified  array;  to  return  an  index  of  the 
first  match  found,  and  to  return  zero  if  no 
match  is  found. 

ITLE 

NX  - The  value  for  which  a match  is  to  be  found 
NAR  - The  array  with  which  NX  is  to  be  compared 
NMB  - The  number  of  words  to  be  scanned  in  NAR 

None 

SUBROUTINES  CALLED:  None 

Method ; 

The  input  search  value  is  compared  with  each  member  of  the  array  to  be 
scanned.  If  no  match  is  found,  a value  of  zero  is  returned.  Otherwise, 
the  index  of  the  element  of  the  array  which  exactly  matches  is  returned. 
In  the  case  of  more  than  one  match,  the  smallest  index  value  is  returned. 

Function  ITLE  is  illustrated  in  figure  158. 


I 
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ENTRY  POINTS: 
FORMAL  PARAMETERS: 

COMMON  BLOCKS: 


9.29  Function  IWANT 
PURPOSE : 


To  determine  the  position  of  an  item  in  an  array. 
The  search  is  modified  by  specifying  items  not  to 
be  searched. 


I 


ENTRY  POINTS: 

IWANT 

FORMAL  PARAMETERS: 

NEED 

lAR 

- The 

- The 

item  to  be  matched 

array  to  be  searched 

1ST ART  - The  first  element  in  the  array  to  be 
searched 

TEND  - The  last  element  in  the  array  to  be 
searched 

COWON  BLOCKS:  None 

SUBROUTINES  CALLED:  None 

Method ; 

This  function  searches  array  lAR  from  element  ISTART  to  element  lEND  to 
find  a match  for  NEED.  At  each  occurrence  of  an  element  of  lAR  with  the 
value  = IR*;  i.e.,  1-character  BCD  code  for  asterisk  right- justified 
with  zero  fill  to  the  left,  the  list  is  not  searched  for  NEED  until  after 
the  next  occurrence  of  the  right- justified  asterisk.  This  search  method 
corresponds  to  ignoring  alphameric  value  subfields  as  defined  by  sub- 
routine GETVALU.  The  value  returned  by  the  function  is  the  index  to  the 
element  of  lAR  which  is  equal  to  NEED.  If  no  element  meets  the  pre- 
scribed conditions,  the  function  returns  the  value  IEND+1 

Function  IWANT  is  illustrated  in  figure  159. 
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Figure  159.  Function  IWANT 
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9.30  Function  KEYMAKE 

PURPOSE : To  generate  a KEY  word  for  input  to  subroutine 

IPUT  or  function  IGET. 

ENTRY  POINTS:  KEYMAKE 

FORMAL  PARAMETERS:  ITYPE  - Specifies  the  type  of  packing  or 

unpacking 

=1  Signed  integer 
=2  Unsigned  integer 
=4  Unpacked  word 

NSHIFT  - The  number  of  bits  from  the  rightmost 
bit  of  the  packed  word 

NBITS  - The  number  of  bits  in  the  packed  word 
COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  None 

Method: 

Function  KEYMAKE  generates  a key  word  which  contains  the  necessary 
packing  and  unpacking  information  for  input  to  IPUT  or  IGET.  The  format 
of  the  key  word  is  as  follows: 


Number  of  Bits 

21 

6 

6 

3 

Unused  NSIIIFT  NBITS  ITYPE 


The  variable  IWD  is  set  equal  to  NSHIFT  and  shifted  left  six  bits.  NBITS 
is  added  to  IWD,  and  IWD  is  shifted  left  three  bits.  ITYPE  is  now  added 
to  IWD  and  the  result  placed  in  KEYMAKE,  which  value  is  returned  to  the 
calling  program. 

Function  KEYMAKE  is  illustrated  in  figure  160. 
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9.31  Function  LATBT 

PURPOSE ; To  convert  a floating  point  latitude  or  longitude 

to  degrees,  minutes,  seconds,  and  direction 
(CHARACTER*8). 

ENTRY  POINTS;  LATBT,  LATOV,  LATDT,  LATS,  LONBT,  LONCV,  LONDT,  LONS 

FORMAL  PARAMETERS ; A - Floating  point  latitude  or  longitude 

JDIR  - Specifies  whether  latitude  or  longitude 

coordinate  to  be  converted 

i 

COMMON  BLOCKS;  None 

SUBROUTINES  CALLED;  None 

Method ; 

Function  LATBT  converts  a floating  point  value  (A)  of  latitude  (entry 
point  LATBT)  or  longitude  (entry  point  LONBT)  to  the  form  DDMMSSH  or 
DDDMMSSH,  where  DD  or  DDD  is  degrees,  MM  is  minutes,  SS  is  seconds,  and 
H is  the  hemisphere  code.  The  function  first  assigns  a hemisphere  code 
to  variable  LHEM  as  follows:  east  longitude  (E),  west  longitude  (W), 
north  latitude  (N),  and  south  latitude  (S).  The  degrees,  minutes  and 
seconds  are  then  computed  from  A and  are  packed,  along  with  LHEM,  into 
variable  LATBT. 

The  logic  flow  of  function  LATBT  is  Illustrated  in  figure  161. 
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9.32  Subroutine  LINKUP 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


CCTIMON  BLOCKS: 
SUBROUTINES  CALUD: 


To  add  to  a list  of  record  types  any  additional 
types  needed  to  build  a retrieval  scheme 

LINKUP 

LIST:  List  of  record  type  numbers 

LISTLN:  Length  of  list 

KHDR:  Record  type  number  of  primary  header 

CIO,  C20,  C30,  SCRTCH 

NEXTTT 


Method: 

This  subroutine  Is  best  understood  by  examining  figure  162.  Basically, 
the  routine  begins  with  the  Input  LIST  and  pairs  to  It  the  JIST  array 
\dilch  contains  an  Identifying  number  for  the  'complex'  of  record  types  to 
which  each  record  type  In  LIST  belongs.  A complex  (as  defined  here)  Is 
a group  of  record  types  which  Is  continuous  In  that  every  record  type 
In  the  group  Is  linked  to  every  other  type  In  the  group  through  one  or 
more  data  base  chains.  The  objective  of  the  LINKUP  process  Is  to  add 
record  types  to  LIST  In  such  a way  that  all  record  types  end  up  In  the 
same  complex.  If  an  error  condition  occurs  the  length  of  the  output 
LIST  Is  set  to  zero  (LISTLN=0). 


In  the  first  part  of  the  process  JIST  Is  set  to  0 for  all  but  the  primary 
header  (KHDR)  which  Is  set  to  1.  Then  each  element  of  LIST  Is  examined 
as  follows.  If  JIST  Is  zero.  It  Is  set  to  the  next  nuiid>er  In  sequence 
(ICOMP).  Then  for  every  chain  of  which  It  Is  master  the  detail  record 
Is  compared  to  LIST.  If  a match  Is  found  and  the  match  entry  has  JIST^O, 
JIST  Is  set  equal  to  JIST  for  the  current  LIST  element.  If  a match  Is 
found  and  the  match  entry  has  JIST=0  then  all  JIST  entries  equal  either 
to  the  match  entry  for  JIST  or  the  current  entry  for  JIST  are  set  equal 
to  the  lower  of  these  two. 


If  no  match  Is  found  for  the  detail  record  type  In  LIST,  It  Is  compared 
to  the  auxiliary  table  KIST.  If  a match  Is  found  In  KIST,  the  KIST 
entry  Is  removed  and  added  to  LIST.  Furthermore,  all  entries  equal  to 
the  JIST  current  value  or  the  auxiliary  table  complex  nund>er  (MIST)  for 
the  KIST  entry  are  set  equal  to  the  lower  numbered  value.  This  reset 
Is  done  In  both  JIST  and  MIST. 

If  no  match  Is  found  for  the  detail  record  In  either  LIST  or  KIST,  the 
detail  Is  added  to  KIST  and  the  appropriate  value  set  in  MIST.  VHien  all 
entries  of  LIST  have  been  processed,  JIST  Is  checked  to  see  If  any 
entries  are  not  equal  to  1.  If  any  are,  a more  complex  process  must 
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Figure  162.  Subroutine  LINKUP  (Part  1 of  8) 
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Figure  162.  (Part  3 of  8) 
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Figure  162.  (Part  6 of  8) 


be  followed  which  is  similar  to  that  above.  In  this  case  KIST  is  used. 
However,  when  a detail  is  not  matched  it  is  not  singly  added  to  KIST. 
Its  record  type  number  is  recorded  in  KIST  but  the  value  stored  in  MIST 
is  a pointer  to  the  KIST  entry  which  is  this  entry's  master.  Thus, 
when  a match  is  found,  a whole  series  of  KIST  entries  may  be  moved  into 
LIST. 

Subroutine  LINKUP  is  illustrated  in  figure  162. 
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9.33  Subroutine  LREORDER 


I 

1 

1 


I 

! 

i 


I 

I 

I 


PURPOSE! 

ENTRY  POINTS: 
FORMAL  PARAMETERS : 


COMMON  BLOCKS; 
SUBROUTINES  CALLED: 
Method ; 


This  routine  reorders  the  elements  of  a packed 
logical  array. 

LREORDER 

ISEQ  - A sequence  array  to  control  reordering 
N - Number  of  elements  to  be  reordered 

LXLOGAR  - A logical  array  to  be  reordered 

None 

SLOG,  GLOG 


This  subroutine  uses  the  same  method  as  the  utility  subroutine  REORDER. 
This  extra  routine  is  required  for  logical  arrays  on  the  HIS  6080  com- 
puter system.  QUICK  system  logical  arrays  are  packed  36  elements  to  one 
computer  word  on  this  system  and  the  word  manipulation  code  of  subroutine 
REORDER  would  not  correctly  reorder  a packed  array. 

The  ISEQ  array  is  a sequence  key  array  of  the  type  produced  by  subroutine 
ORDER.  It  contains  the  indices  of  the  array  LXLOGAR  in  the  order  in 
which  they  are  placed.  That  is,  ISEQ(l)  contains  the  index  of  the  ele- 
ment in  LXLOGAR  that  is  to  be  placed  first;  ISEQ(2)  contains  the  index 
of  the  element  that  is  to  be  placed  second,  and  so  on.  The  parameter  N 
determines  the  number  of  elements  to  be  reordered.  At  the  end  of  the 
subroutine,  the  elements  of  LXLOGAR  have  been  reordered. 


LREORDER  stores  one  element  from  LXLOGAR  in  a temporary  location.  It  then 
reads  from  ISEQ  the  element  which  should  go  in  that  position  (which  may 
now  be  considered  empty)  and  moves  it,  filling  the  position  and  creating 
a new  empty  cell.  Each  new  empty  cell  is  filled  with  its  proper  contents 
as  soon  as  the  original  contents  have  been  removed.  V/hen  the  element  in 
temporary  storage  is  required,  LREORDER  finds  another  element  which  is 
not  already  in  proper  sequence,  puts  it  into  temporary  storage,  and  con- 
tinues as  before.  This  process  continues  until  no  elements  are  out  of 
sequence.  The  contents  of  ISEQ  are  returned  to  the  calling  program  un- 
changed so  that  the  sequence  key  can  be  used  again. 

Subroutine  LREORDER  is  illustrated  in  figure  163. 
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Figure  163.  Subroutine  LREORDER 


PURPOSE;  To  determine  if  the  line  being  described  should  j! 

go  to  the  edge  of  a map  and  begin  again  on  the 

other  side  or  simply  connect  the  points  (only  , 

needed  for  Mercator  projection).  j 

ENTRY  POINTS;  MAPEDGE 

FORMAL  PARAMETERS;  K - Line  indicator 

COMMON  BLOCKS;  INMAP,  PLTPROJ,  XMEDGE 

SUBROUTINES  CALLED;  PIECEIT,  PIECENUM 

CALLED  BY;  PLTDATA,  SUBPLOT 

Method ; 


The  points  of  the  plot  which  are  to  be  connected  may  lie  on  different 
sides  of  the  map  if  it  is  drawn  in  the  Mercator  projection.  The  line 
indicator,  K,  is  tested  if  it  is  desired  to  connect  those  points  by 
continuing  the  line  from  the  other  side  of  the  map.  If  the  projection 
Indicator,  MERCAT,  is  not  set  for  Mercator  projection,  the  subroutine 
exits  even  if  K is  set  to  draw  the  line  as  described  above.  The  dif- 
ferences of  the  values  of  the  x-coordinates  and  y-coordinates  for  the 
points  to  be  connected  are  computed.  Then  the  line  connecting  the  x- 
coordlnates  is  tested  to  determine  if  it  leads  off  the  XMEDGE  or  zero 
edge  of  the  map.  The  variable  SIGN  is  set  to  1 to  indicate  XMEDGE  or 
to  -1  to  indicate  the  zero  edge.  The  point  along  the  edge  where  the 
line  is  to  continue  is  computed  and  subroutines  PIECEIT  and  PIECENUM 
are  called  to  perform  the  plotting  and  labeling. 


Subroutine  MAPEDGE  is  Illustrated  in  figure  164. 
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9.35  Function  NUMGET 


PURPOSE; 


To  convert  the  BCD  contents  of  an  array  Into  a 
signed  Integer  number. 


ENTRY  POINTS ; NUMGET 


FORMAL  PARAMETERS ; NIN  - The  name  of  the  array  or  variable  where 

the  Input  data  are  stored 

NCH  - The  number  of  characters  to  be  scanned 


COMMON  BLOCKS;  None 

SUBROUTINES  CALLED;  None 


Method ; 

Function  NUMGET  converts  integer  data,  which  have  been  read  into  an  array 
using  alphameric  (A6)  format  for  each  word,  into  signed  Integer  numbers 
with  blanks  Ignored;  l.e.,  suppressed.  The  number  of  characters  to  be 
scanned  and  the  array  or  variable  name  are  specified  in  the  calling 
sequence.  If  no  sign  appears,  the  number  is  assumed  positive.  However, 
the  sign  may  appear  anywhere  in  the  specified  input  field,  and  NUMGET  places 
it  at  the  beginning  of  the  number.  If  two  signs  appear  within  the  same 
field,  the  last  sign  is  assumed  correct. 

When  integer  data  are  read  in  with  I format,  standard  FORTRAN  has  a number 
of  limitations.  The  most  time-consuming  constraint  in  preparing  and 
keypunching  data  for  a program  is  the  requirement  that  integers  be  right- 
justified  and  that  the  sign  (if  any)  precede  the  number.  NUMGET  overcomes 
these  restrictions.  It  is  not  intended  to  be  an  error-correcting  routine 
but  rather  a convenience  and  a time-saving  routine.  Whereas  a normal  read 
using  integer  (I)  format  of  a number  such  as  77/7  or  77M7  would  abort 
the  computer  run,  NUMGET  allows  the  program  to  continue,  translating  the 
number  in  each  example  to  77.  Thus  the  burden  of  checking  the  accuracy 
of  the  data  remains  on  the  analyst  who  has  input  the  data--but  he  is  able 
to  check  an  entire  run  at  once,  rather  than  having  his  run  abort  on  the 
first  illegal  field  encountered. 

The  program  will  scan  as  many  contiguous  characters  as  the  calling  program 
has  requested  (formal  parameter  NCH),  moving  down  the  array  NIN  (dimensioned 
as  1 in  the  subroutine,  since  the  real  size  of  this  array  is  determined  by 
the  array  size  in  the  calling  program,  eight  characters  at  a time*  until 
NCH  has  been  satisfied.  Since  the  HIS  6000  has  only  a 36-bit  word  and 
the  largest  Integer  that  can  be  translated  accurately  is  2"-l,  (11  deci- 
mal digits),  the  practical  limitation  on  NCH  should  be  such  that, 
excluding  blanks,  the  translated  integer  will  fit  within  the  word  size. 


Each  word  of  the  HIS  6000  may  contain  at  roost  six  BCD  characters. 
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V. 


Perhaps  the  roost  common  example  for  NUMGET  would  be  the  one  where  the 
field  width  has  been  defined  to  be  10  characters  (normally  read  as  110 
format).  When  using  NUMGET,  the  calling  program  would  read  the  field 
Into  an  array  of  size  two  using  a format  of  A6,A4.  NUMGET  would  be 
called  with  NCH  set  to  10,  and  all  10  characters  would  be  translated 
to  an  Integer. 

' Function  NUMGET  Is  Illustrated  In  figure  165. 
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Figure  165.  Function  NUMGET 


9.36  Subroutine  OFVAL 

PURPOSE : To  maintain  a table  of  values  retrieved  from  OF 

phrases  and  LIKE  strings 

ENTRY  POINTS;  OFVAL 

FORMAL  PARAMETERS;  VALUE;  Value  of  phrase  or  string 

INDEX;  Index  of  Instruction  code  containing  * , 

phrase  or  string 

BRANCH;  Action  to  be  performed  i 

1 - Store  VALUE  and  INDEX  In  table 

2 - Flush  table  buffers 

3 - Retrieve  VALUE  from  table  using  INDEX  ' ? 

4 - Delete  table  : 

COMMON  BLOCKS;  C40 

SUBROUTINES  CALLED;  DLETE,  RETRV,  STORE 

Method; 

i 

• i 

The  process  differs  depending  upon  the  value  of  BRANCH. 

BRANCH=1 

If  the  buffer  VALZ  is  full  It  is  moved  into  the  TABLEZ  conmon  block  C40 
and  STORE  is  called.  The  reference  code  Is  saved  In  VLHDRZ.  In  any 
case,  VALUE  and  INDEX  are  stored  In  VALZ  In  the  next  available  position. 

BRANCH=2 

If  there  is  only  one  table  there  is  no  need  to  save  it.  Otherwise,  the 
last  table  is  moved  to  TABLEZ  and  stored. 

BRANCH»3 

Every  element  of  the  old  tables  is  examined  looking  for  a match  for 
INDEX.  When  it  is  found  the  corresponding  value  is  returned  in  VALUE. 

BRANCH=4 

Any  TABLEZs  created  are  deleted. 

Subroutine  OFVAL  is  illustrated  in  figure  166. 
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Figure  166.  (Part  2 of  3) 
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9.37  Subroutine  ORDER 


PURPOSE ; 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 

SUBROUTINES  CALLED: 

Method ; 

Given  an  arbitrary  array,  lA,  of  N elements,  subroutine  ORDER  returns  in 
another  array,  INDEX,  the  indices  of  the  elements  of  lA  in  their 
numerical  order.  That  is,  INDEX(l)  contains  the  index  of  the  smallest 
element  in  lA,  IN'DEX(2)  the  index  of  the  next  smallest,  and  so  on. 

INDEX(N)  contains  the  index  of  the  largest  element  in  lA. 

Oiere  are  restrictions  on  the  values  of  the  formal  parameters.  The 
number  of  elements  to  be  indexed,  N,  must  be  greater  than  zero.  The 
array  to  be  ordered  and  the  indexed  array  must  both  have  at  least  this 
many  elements.  In  addition,  the  subroutine  will  not  operate  correctly 
luiless  the  array  to  be  ordered  and  the  index  array  occupy  different  areas 
in  storage.  The  array  to  be  ordered,  I A,  may  be  in  either  fixed  point  or 
floating  point  format.  The  indices,  of  course,  will  be  returned  in  fixed 
point  format. 

Subroutine  SETORD  is  used  to  reformat  the  lA  array  so  that  the  bits  are 
in  decreasing  order  of  magnitude  from  left  to  right  for  floating  point 
variables.  Subroutine  RESORD  is  used  to  restore  this  array  to  its 
original  format. 

Subroutine  ORDER  is  illustrated  in  figure  167. 


To  return  the  indices  of  the  numeric  order  of 

the  elements  in  any  array. 

ORDER 

lA  - An  array  of  arbitrary  values  whose 
elements  are  to  be  indexed 

INDEX  - The  array  which  will  contain  the  indices 
to  lA  in  increasing  numerical  order 

N - The  number  of  elements  in  lA  to  be 
indexed 

None 

SETORD,  RESORD 
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Figure  167.  Subroutine  ORDER 
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9,38  Subroutine  PAGESKP 

PURPOSE;  To  eject  to  the  top  of  the  next  page  on  the 

standard  output. 


ENTRY  POINTS:  PAGESKP,  PAGESKIP* 

FORMAL  PARAMETERS;  None 

COMMON  BLOCKS;  WAROUT 

SUBROUTINES  CALLED;  None 

Method : 

This  subroutine  uses  the  standard  carriage  control  character  (i.e.,  1) 
in  column  1 to  eject  to  the  top  of  the  next  page  on  the  war  game  output. 

Subroutine  PAGESKP  is  illustrated  in  figure  168. 


^.39  Subroutine  PIECEIT 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


To  plot  those  points  that  fall  within  the  limits 
of  the  graph  and  to  write  the  points  which  are 
off  the  graph  on  a tape  which  may  be  used  later 
to  produce  labeled  plots  which  can  be  pieced 
together  to  form  one  large  plot. 

PIECEIT,  PIECEl,  PIECES,  PIECE4 

X - x-coordlnate  of  point 

Y - y-coordlnate  of  point 

MODE  - Plotting  mode  Indicator  (=  1 for  dotted 
line;  * 2 for  straight  line;  = 3 to  move 
with  pen  up;  =4  to  change  pen  cojor) 
lYESN  - Indicator  if  point  is  on  the  graph  (=  0 
if  it  Is  on  the  graph;  >0  if  it  is  off) 


COMMON  BLOCKS:  PLTPROJ,  PLTSPEC,  TAPES,  SNDMIN,  ISUP 

SUBROUTINES  CALLED:  DOTLINE,  INTPIECE,  ISOFF,  NEWPEN*,  PLOT'f 


Method : 

When  PIECEIT  Is  called,  the  mode  indicator  Is  tested.  If  it  equals  4, 
only  the  color  of  the  pen  is  changed  and  the  PIECTAPE  is  written  with 
that  information.  Then  control  is  returned  to  the  calling  program. 

For  any  other  mode  subroutine  ISOFF  is  called  to  determine  if  the  point 
(X,Y)  falls  within  the  limits  of  the  graph.  If  lYESN  was  returned 
with  a value  greater  than  zero,  one  or  both  coordinates  of  point  (X,Y) 
are  off  the  graph.  No  plotting  is  performed  in  this  case.  The  point 
coordinates  and  mode  indicator  are  output  on  the  PIECTAPE  and  saved 
for  the  next  call  on  PIECEIT. 

It  lYESN  was  returned  with  a value  of  zero,  point  (X,Y)  is  on  the 
graph.  The  information  saved  from  the  pr  vious  point  is  tested  if  it 
was  on  the  graph  or  not.  If  it  was  off,  subroutine  INTPIECE  is  called 
to  position  the  pen  at  the  point  along  the  edge  of  the  graph  where  the 
line  connecting  the  previous  and  present  points  would  intersect  it. 

The  mode  Indicator  is  tested  and  if  a dotted  line  is  requested,  sub- 
routine DOTLINE  is  called;  otherwise,  the  PLOT  routine  is  called  to 
draw  a line  or  move  the  pen  from  its  present  position  to  point  (X,Y). 
The  FtBCTAFE  la  always  krritten  to  keep  all  the  Information  for  further 

pint* . 


- f . < 
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At  entry  PIECEl,  routine  NEHPEN  Is  called  to  change  the  pen  color  and 
write  the  projection  parameters  on  the  PIECTAPE. 

At  entry  PIECES,  the  number  of  points  off  the  graph  and  the  actual 
values  of  the  x-  and  y-coordlnates  at  the  points  with  the  minimum  x 
value  and  the  minimum  y value  are  printed.  The  PIECTAPE  Is  written 
to  Indicate  the  end  of  a plot. 

At  entry  PIECE4,  the  projection  parameters  and  an  end-of-file  mark 
are  written  on  the  PIECTAPE.  Then  the  tape  is  rewound. 

Subroutine  PIECEIT  is  Illustrated  in  figure  169. 
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Figure  169.  Subroutine  PIECEIT  (Part  1 of  3) 
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Figure  169.  (Part  2 of  3) 
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Figure  169.  (Part  3 of  3) 


9.40  Subroutine  PIECENUM 


Jl 


PURPOSE;  To  write  the  labels  on  a plot. 

ENTRY  POINTS;  PIECENUM 

FORMAL  PARAMETERS ; X - Value  of  x-coordinate 

Y - Value  of  y-coordinate 

MODE  - Plotting  indicator  to  be  used  for  call 
on  subroutine  PIECEIT 

NUM  - Indicator  0 to  plot  a number;  =■  1 
to  plot  a symbol) 

HEIGHT  - Size  of  label 
BCD  - Point  number  or  symbol 
THETA  - Angle  in  which  label  is  to  be  plotted 
NN  - Indicator  for  plotting  a nti&!b6r  or  a 
symbol  (if  NUM  =»  0 and  NN  = -1,  the 
decimal  point  is  plotted,  NN  ^1  NN 
digits  to  the  right  of  the  decimal 
point  are  plotted;  if  NUM  = 1 and 
NN  ^0  NN  characters  from  variable  BCD 
will  be  plotted;  NN  = -1  the  centered 
character  defined  by  BCD  will  be  plotted) 
lYESN  - Indicator  if  point  is  on  the  graph 
(a  0 if  point  is  on  the  graph,  >0 
if  point  is  off) 

COMMON  BLOCKS;  TAPES,  ISUP 

SUBROUTINES  CALLED;  NUMBER*,  PIECEIT,  SYMBOL* 

Method ; 

First  it  has  to  be  determined  if  the  label  will  fall  within  the  limits 
of  the  graph.  Subroutine  PIECEIT  is  called  to  obtain  a value  for  the 
Indicator  lYESN.  If  lYESN  equals  zero,  which  means  that  the  label  is 
on  the  graph,  the  routine  NUMBER  or  SYMBOL  is  called  as  indicated  by 
NUM,  to  plot  a number  or  a symbol.  If  the  label  is  not  on  the  graph, 
the  PIECTAPE  is  written  with  all  the  label  information. 

Subroutine  PIECENUM  is  Illustrated  in  figure  170. 


These  are  standard  plotting  routines  and  not  documented  in  this 
manual.  They  are  only  Included  for  completeness. 
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9,41  Subroutine  PLTTIC 

PURPOSE : To  perform  the  actual  plotting  of  the  tlcmarks. 

ENTRY  POINTS:  PLTTIC 

FORMAL  PARAMETERS:  NTIC  - Number  of  tlcmarks 

TICK  - Array  of  x-coordlnates  for  tlcmarks  > 

TICY  - Array  of  y-coordinates  for  tlcmarks 

XO,  YO  - Coordinates  of  point  where  pen  Is  to 

be  positioned  after  tlcmarks  have  been 
plotted 

t 

CCT1M0N  BLOCKS;  None  ' 

SUBROUTINES  CALLED;  PLOT*  i 

I 

Method ; 

For  all  tlcmarks  the  routine  PLOT  Is  called;  first  to  position  the  pen 
at  the  starting  point  for  each  tlcmark;  then  to  connect  the  three  points 
that  outline  the  tlcmark.  Before  returning  control  to  the  calling  pro- 
gram, the  pen  Is  positioned  at  the  point  (XO,YO). 

Subroutine  PLTTIC  Is  illustrated  In  figure  171. 


This  Is  a standard  plotting  routine  and  not  documented  In  this 
manual.  It  Is  only  Included  for  completeness. 


I 
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9.42  Subroutine  PRIMHD 


PURPOSE:  To  find  the  primary  header 

ENTRY  POINTS:  PRIMHD 

FORMAL  PARAMETERS:  RECTYP:  Input  record  type  number  output  as  record 

type  number  of  Input's  primary  header 

COMMON  BLOCKS:  C20,  C30 

SUBROUTINES  CALLED:  NEXTTT 

Method: 

The  process  Involves  altering  the  value  of  RECTYP  In  an  Iterative  manner 
until  the  exit  condition  occurs.  The  first  step  of  the  Iteration  is 
find  the  corresponding  INDRCT  record  on  the  RCTYP  chain.  Then  if  RECTYP 
is  less  than  or  equal  to  30  (a  header)  the  subroutine  exits.  Otherwise 
NEXTTT  is  called  on  the  IRDET  chain  and  RECTYP  is  set  equal  to  the 
master  record  number. 

Subroutine  PRIMHD  is  Illustrated  in  figure  172. 


START 


Call  NEXTTT 
to  Get  Next 
Record  Type 


Desired 
Record  Type  ? 


la  Record 
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Type  a 

RETURN 

Header  ? 

/ 



Call  NEXTTT 
on  the  IRDET 
Chain  to  Get 
Master  Type 


Reset  Desired 

Record  Type  to 

Master  Type 

Figure  172.  Subroutine 

PRIMHD 

9.43  Subroutine  PSREC 
PURPOSE; 


ENTRY  POINTS; 


FORMAL  PARAMETERS; 


COMMON  BLOCKS; 


SUBROUTINES  CALLED; 


CALLED  BY; 


Method; 


To  create,  maintain,  sort  and  retrieve  print/sort 
records 

PSNXT,  PSPUT,  PSREC,  PSRWD,  XSORT 


PSCOM,  SORSCH 


SORTIT 


BLDOTH,  PRINT 


Entry  Point  PSREC 

First  RANSIZ  Is  called.  Then  the  length  of  the  sort  scheme  (LENSRT)  Is 
determined  and  from  it  the  length  of  the  sort  record  (LENREC)  calculated. 
Finally  the  record  count  (INDEX),  file  mark  check  (FYLMRK)  and  file  unit 
(UNIT)  are  initialized. 

Entry  Point  PSPUT 

This  entry  adds  records  to  the  file.  For  each  record  INDEX  Is  Incremented 
and  the  Index  sequential  record  Is  stored.  If  LENSRT  Is  greater  than 
zero  the  sort  record  Is  also  built  as  follows.  The  sort  scheme  Is  exe- 
cuted. For  each  Instruction  In  the  scheme  the  Indicated  record  element 
Is  retrieved,  converted  according  to  Its  mode  and  stored  In  the  sort 
record.  Descending  keys  are  complemented  before  they  are  stored.  Then 
the  sort  keys  plus  INDEX  are  written  onto  UNIT. 

Entry  Point  PSRWD 

If  LENSRT  Is  greater  than  zero  FYUIRK  Is  checked  and  If  false  an  end  of 
file  Is  written  on  UNIT.  UNIT  is  then  rewotmd.  If  LENSRT  Is  zero, 

INDEX  Is  set  to  zero. 

Entry  Point  XSORT 

A call  Is  made  to  SORTIT  and  a RETURN  is  executed. 
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Entry  Point  PSNXT 

If  LENSRT  is  not  zero  the  next  record  is  read  from  UNIT.  The  value  for 
INDEX  Is  then  used  to  retrieve  the  appropriate  Index  sequential  record. 

If  LENSRT  is  zero,  INDEX  is  incremented  and  the  appropriate  index  sequen- 
tial record  retrieved. 

Subroutine  PSREC  is  illustrated  in  figure  173. 
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Figure  173.  Subroutine  PSREC:  Entry  PSREC  (Part  1 of  4) 
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Figure  173.  Subroutine  PSREC:  Entries  XSORT  and  PSNXT 
(Part  4 of  4) 
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9,44  Subroutine  REORDER 


PURPOSE : 


ENTRY  POINTS: 


To  rearrange  from  one  to  seven  arrays  into  the 
sequence  specified  by  the  elements  of  an  index 
array. 

REORDER 


FORMAL  PARAMETERS: 


CO^»^ON  BLOCKS: 
SUBROUTINES  CALLED: 


ISEQ  - (Fixed  point)  sequence  key  array  of  the 
type  produced  by  subroutine  ORDER 

NEL  ' (Fixed  point)  number  of  elements  to  be 
reordered  in  each  array 

NAR  ~ (Fixed  point)  number  of  arrays  which  are 
to  be  reordered 

L1-L7  ' (Fixed  point  or  floating  point)  names  of 

the  arrays  which  are  to  be  reordered;  if 
the  number  of  these  arrays  is  less  than 
seven,  the  remaining  positions  must  be 
filled  by  trailing  dummy  arguments 

None 

None 


Method : 

Subroutine  REORDER  operates  in  the  following  manner.  First,  it  stores  one 
element  from  each  array  in  a temporary  location.  It  then  reads  from  the 
array  ISEQ  the  element  which  should  go  in  that  position  (which  may  now 
be  considered  empty)  and  moves  it,  filling  that  position  and  creating  a 
new  blank.  This  is  repeated  for  the  corresponding  element  of  each  array 
being  reordered.  Each  new  blank  spot  is  filled  with  its  proper  contents 
as  soon  as  its  original  contents  have  been  moved,  until  the  element  cur- 
rently in  temporary  storage  is  required.  When  this  happens,  subroutine 
REORDER  finds  another  element  which  is  not  already  in  its  sequence  and 
puts  it  into  temporary  storage  and  continues  as  before  until  no  elements 
are  out  of  sequence. 

The  contents  of  the  array  ISEQ  are  returned  to  the  calling  program 
unchanged,  so  that  subroutine  REORDER  may  be  called  again,  using  the  same 
sequence  key  array  if  more  than  seven  arrays  are  to  be  reordered. 

Subroutine  REORDER  is  illustrated  in  figure  174. 
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Figure  174.  (Part  2 of  2) 
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9.45  Function  RLBRT 

PURPOSE;  To  compute  a factor  for  the  Lambert  projection. 

ENTRY  POINTS;  RLBRT 

FORMAT  PARAMETERS;  Z - Output  from  function  ZTAN 

COMMON  BLOCKS;  LMBRT 

SUBROUTINES  CALLED;  None 

Method ; 

FL 

This  function  computes  FK  * (Z  ) where  FK  and  FL  are  Lambert  projection 
parameters  and  Z is  the  result  of  the  computation  in  function  ZTAN. 

Function  RLBRT  is  illustrated  in  figure  175. 
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Figure  175.  Function  RLBRT 
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9,46  Subroutine  SETORD 


PURPOSE: 

This  routine  manipulates  the  bits  of  words  to  1 
ordered  by  subroutine  ORDER  to  create  a string 
of  bits  whose  significance  is  decreasing  from 
left  to  right. 

ENTRY  POINTS': 

SETORD, 

RESORD 

FORMAL  PARAMETERS: 

ARRAY  - 
N 

ISEQ  - 

The  array  to  be  ordered  by  ORDER 

Number  of  elements  in  the  array 

The  sequence  array  to  be  set  by  ORDER 

COmON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

ORDER 

Method : 

This  subroutine  is  called  only  by  subroutine  ORDER.  Entry  SETORD  is  used 
before  ordering  to  set  the  bits  of  the  words  to  be  ordered  into  a format 
more  amenable  to  ordering.  Entry  RESORT  is  used  to  restore  the  bit  con- 
figuration of  the  input  array  to  its  original  value. 

On  the  HIS  6000  series  computer  a floating  point  word  consists  of  a nine- 
bit  exponent  and  a 27-blt  mantissa.  The  bits  are  numbered  zero  to  35 
going  left  to  right.  Bit  zero  is  the  sign  bit  for  the  exponent  (zero 
for  positive,  one  for  negative);  bits  one  through  eight  are  the  exponent 
value;  bit  nine  is  the  mantissa  sign  bit  (zero  for  positive,  one  for 
negative);  and  bits  10  through  35  are  the  mantissa  value.  For  floating 
point  value,  the  most  significant  bit  is  bit  nine  which  determines  the 
sign  of  the  value.  Then  bits  zero  through  eight  are  the  next  signifi- 
cant, followed  by  10  through  35  as  least  significant.  However,  subroutine 
ORDER  requires  that  bit  significance  decrease  monotonically  from  left  to 
right.  Subroutine  ORDER  also  assumes  that  a value  of  one  for  a bit  signi- 
fies a higher  value  than  the  value  zero.  This  convention  is  contrary  to 
the  HIS  convention  for  sign  bits. 

Therefore,  entry  SETORD  revises  the  bit  configuration  of  the  word 
according  to  the  following  scheme.  Bits  10  through  35  of  the  new  word 
(at  exit  from  SETORD)  are  equal  to  bits  10  through  35  of  the  old  word 
(at  entry  to  SETORD).  Bits  two  through  nine  of  the  new  word  are  equal 
to  bits  one  through  eight  of  the  old  word.  Bit  one  of  the  new  word  is 
equal  to  the  complement  of  bit  zero  of  the  old  word  and  bit  zero  of  the 
new  word  is  equal  to  the  complement  of  bit  nine  of  the  old  word.  This 
scheme  produces  a word  in  which  bit  significance  decreases  monotonically 
from  left  to  right. 
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This  process  is  carried  on  for  each  of  the  N words  in  the  array  to  be 
ordered  (ARRAY).  Array  ISEQ  is  used  by  subroutine  ORDER  so  that  the  bits 
are  in  decreasing  order  of  magnitude  from  left  to  right  for  floating  point 
variables.  Entry  SETORD  initializes  this  array  so  that  ISEQ(J)=  J for  the 
first  N elements. 

Entry  RESORD  merely  reverses  the  bit  manipulation  process  of  entry  SETORD. 
This  subroutine  is  illustrated  in  figure  176. 
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Figure  176. 


Subroutine  SETORD 
Part  I:  Entry  SETORD 
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Figure  176.  Part  II:  Entry  RESORD 
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9.47  Subroutine  SETSCH 


PURPOSE : 

Builds  a 

retrieval  scheme  (see  section  4.4) 

ENTRY  POINTS: 

SETSCH 

FORMAL  PARAMETERS: 

LSTLST: 

List  of  record  type  numbers 

LISTLN: 

Number  of  types  in  list 

HDNAME: 

Record  type  name  of  primary  header 

lOPT: 

Header  option 

XCLASS: 

Value  for  CLASS  of  primary  header 

XSIDE: 

Value  of  SIDE  of  primary  header 

COMMON  BLOCKS: 

CIO,  C20, 

, C30,  ORDER,  PRINSP.  SCHEME,  SCRATCH 

SUBROUTINES  CALLED: 

NEXTTT 

Method: 

First  the  input  record  type  iist  (LSTLST)  is  moved  to  LIST.  Then  the 
Get  Header  instruction  is  stored  using  lOPT,  XCLASS  and  XSIDE.  Now 
the  'chain  down'  process  begins.  This  process  is  begun  with  the  primary 
header  (HDNAME)  and  takes  place  for  the  first  lower  level  record  of 
each  hierarchical  level  (IRTP).  The  process  is  to  find  the  INDRCT 
record  for  the  subject  record  type  (HDNAME  or  IRTP).  Then  the  IRMAST 
chain  is  searched  for  record  types  that  are  details  of  chains  for  which 
the  subject  record  type  is  master.  Each  detail  record  type  is  compared 
to  the  contents  of  LIST.  If  no  detail  record  type  is  found  in  LIST  the 
chain  down  process  is  over. 

However,  for  any  detail  record  type  which  is  found  in  LIST  a chain  next 
comnand  is  added  to  the  scheme.  Also  the  detail  record  type  name  and 
number  are  added  to  the  order  arrays  (SCHORD  and  SORDNM).  The  LIST 
entry  is  stored  in  MIST,  the  chain  name  is  stored  in  NAMZ,  and  the  LIST 
entry  set  to  zero.  Finally,  if  this  was  the  first  detail  record  type 
found  for  the  subject  record  type,  IRTP  is  set  to  the  detail  record  type. 

When  the  chain  down  process  is  completed,  a return  instruction  is  added 
to  the  scheme.  The  Nonzero  entries  in  LIST  are  counted  (NONZER)  and  the 
'chain  up'  process  begins.  In  this  process  the  elements  of  MIST  are 
examined  one  at  a time  until  either  the  MIST  list  is  exhausted  or  the 
NONZER  variable  is  zero.  As  a result  of  the  process  the  MIST  list  may 
be  added  to. 

For  each  element  examined,  the  INDRCT  record  is  found  and  the  IRDET 
chain  searched  for  record  types  which  are  masters  of  chains  of  which 
the  examined  record  type  is  a detail.  Each  master  type  is  compared  to 
LIST.  Any  match  which  is  found  generates  a head  chain  command.  This 


conmand  Is  Inserted  In  the  scheme  immediately  after  the  command  for  the 
chain  (NAMZ)  which  retrieves  the  examined  record  type.  The  new  record 
type's  number  Is  also  Inserted  In  SCHORD  and  SORDNM.  Furthermore,  It 
Is  added  to  MIST  and  the  chain  name  added  to  NAMZ.  Finally  the  LIST 
entry  is  set  to  zero  and  NONZER  decremented. 

When  the  chain  up  process  Is  complete,  SETSCH  prepares  the  scheme 
execution  process  (GETNXT)  by  setting  P0INT=1  and  retrieving  the  INDRCT 
record  for  HDNAME. 

Subroutine  SETSCH  is  illustrated  In  figure  177. 


Figure  177.  Subroutine  SETSCH  (Part  1 of  8) 


6 


Call  NErrXT 
to  Get  Next 
Record  Type 


/ Desired 
Header  Record 
V Type? 


Zero  List 
Entry  for 
Header 


Set  ISW  to  1 
to  Indicate 
First  Look 


Call  NEXTTT 
to  Get  Next 
Detail  Type 


End  of 
Chain? 


Is  Detail 
Type  in  List? 


Is  Type 
Primary 
Detail? 


Call  NEXTTT 
to  Get  Next 
Record  Type 


First 

Look? 


Figure  177.  (Part  2 of  8) 
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Figure  177,  (Part  3 of  8) 
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Figure  177.  (Part  6 of  8) 
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Figure  177.  (Part  7 of  8) 
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Figure  177.  (Part  8 of  8) 
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9,48  Function  SLOG 
PURPOSE; 

ENTRY  POINT; 

FORMAL  PARAMETERS; 

COMMON  BLOCKS; 

SUBROUTINES  CALLED; 

Method ; 

The  bit  position  of  the  desired  logical  value  is  determined;  the  bit  is 
set  to  zero  (.FALSE.)  is  E equals  zero,  or  to  one  (.TRUE.)  if  E is  non- 
zero. 

Function  SLOG  is  illustrated  in  figure  178. 


To  pack  QUICK  system  logical  array  values 
(0  = False;  1 = True). 

SLOG 

L - QUICK  logical  array 

E - Expression  giving  value  (True  is  non- 

zero) 

I,J,K  - Array  indices 
LL,M,N  - Array  dimensions 

None 

None 
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9.49  Subroutine  SORTIT 


PURPOSE; 


Generalized  external  four  unit 


sort 


ENTRY  POINTS;  SORTIT 


FORMAL  PARAMETERS; 


LUN:  Input  as  logical  unit  numbers  of  file 

to  be  sorted  - should  be  21. 

Output  or  logical  unit  of  sorted  file  - 
will  be  21  or  23 

LENGTH:  Length  of  records  to  be  sorted  In  words 
ARRAY:  Work  array  for  sort- size  should  be 

4*LENGTH 


COMMON  BLOCKS;  None 

SUBROUTINES  CALLED;  KOMPCH 


Method: 


The  method  of  this  subroutine  is  best  understood  by  reference  to  figure 
179.  The  method  Is  a match-merge  performed  on  units  21,  22,  23,  and 
24.  Each  pair  of  units  (l.e.,  21  and  22),  Is  merged  onto  the  first 
unit  of  the  other  pair  until  a record  would  be  added  which  Is  out  of 
sort.  Then  the  merge  alternates  units  building  groups  of  in-sort 
records  on  each  unit.  The  process  ends  when  all  records  have  been 
merged  onto  one  unit. 
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Figure  179.  (Part  2 of  3) 
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9-50  Function  SSKPC 

PURPOSE : 

To  determine  the  single  shot  kill  probability 
assuming  a circular  normal  delivery  distribution. 

ENTRY  POINTS: 

SSKPC 

FORMAL  PARAMETERS: 

MOD  - Integer  (currently  1,  3,  or  6);  MOD  deter- 
mines the  number  of  terms  used  to  approxi- 
mate SSKPC 

A - Lethal  kill  radius  (positive  real  number) 

SXY  - Standard  deviation 

R02  - Offset  aim  point  distance,  squared 

C(»iMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

Method : 


SSKPC  determines  the  single  shot  kill  probability  PKW  using  the  following 
formula : 


(-R02/2  • SKY"  + Z) 

PKW  = 2 

2 • SXY  • S 


(Z^  + 4Z  + 2) 


(z^  + 9Z^  + 18Z  + 6)  + + IbZ^  + 72Z" 


3' 


+ %Z  + 24)  + 


& 


(Z^  + 25Z'^  + 200Z‘^  + 600Z"  + 6003  + 120) 
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where 


and 


M()l) 
2 


Y = A 


MOD 
f!  = 


SXY 


l«)2 


Z = 4 • . SXY 


The  flow  diagram  in  figure  180  Indicates  the  way  in  which  this  formula  is 
used  to  calculate  PKW  for  different  values  of  MOD  (MOD  is  the  equivalent 
of  the  parameter  W as  described  under  Derivation  of  Kill  Probability 
Function.  Analytical  Manual,  Volume  IlT!  Note  that  BETA  = 0,  GAM  = Y, 

GB  = GAM/BETA  = Y/P,  and 


(-R02/2  • SXY  + Z) 


SXY 


BETA 


P 


Figure  180,  Function  SSKPC  (Part  1 of  2) 
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MOD  > Three? 


3 


Yes 


GB3  - GB 
Z3  • Z* 

TERM  - GB3-.(Z3+9*Z2*18"Z+6)/6 
PKW  - PKW+C*TERM 


r 


I 


MOD  > Four? 


3 


Yes 


> 


MOD  > Five? 


.Yes 


GBS  • GB 
Z5  - 2® 

TERM  » GB5*(ZS+2S-Z4+200‘Z3+600*Z2 
+600*Z+120)/120 
PKW  . PKW+C»TERM 


10 


SSKPC  = PKW 


No 


GB4  » GB 

4 

Z4  . Z 

TERM  a GB4"(Z4+16*Z3+72-Z2+96'Z+24)/24 
PKW  » PKW+C-TERM 


No 


RETURN 


3 


Figure  180,  (Part  2 of  2) 
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9,51  Function  STD 
PURPOSE; 

ENTRY  POINTS; 
FORMAL  PARAMETERS; 
COMMON  BLOCKS; 


To  convert  single  word  alphanumeric  values  to 
double  word  alphanumeric  values  (CHARACTER*8) . 

STD 

IWRD  - Single  word  variable 
None 


SUBROUTINES  CALLED;  None 
Method ; 

The  single  word  argument  Is  set  Into  the  first  position  of  a local  single 
word  array  dimensioned  by  two.  The  array  Is  equlvalenced  to  a local 
double  word  variable.  The  second  word  of  the  local  array  Is  data  set  to 
contain  blanks.  The  local  double  word  Is  then  returned  In  STD. 

Function  STD  Is  Illustrated  In  figure  181. 


1 

1 
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9.52  Subroutine  SVTP 


PURPOSE ; To  save  a random  disk  file  on  tape  or  load  one 

from  tape 


ENTRY  POINTS: 

FILLOD, 

FILSAV 

FORMAL  PARAMETERS: 

FROM: 

TO; 

FILE: 

File  code 
File  code 
Number  of 
used  (may 

of  input 
of  output 

file  on  multifile  tape  to  be 
be  omitted) 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED; 

None 

CALLED  BY: 

SRM 

Method; 

The  method  for  both  entry  points  Is  approximately  the  same.  The  Input 
and  output  codes  are  retrieved  and  the  third  parameter  (FILE)  Is 
checked  for.  If  It  Is  omitted  the  first  tape  file  Is  used.  A 4k 
buffer  Is  now  created  and  the  file  control  blocks  set  up.  The  input 
and  output  codes  are  checked  for  validity  and  it  is  assured  that  one 
is  tape  and  the  other  random  disk.  Here  the  entry  points  differ  in 
that  the  input  unit  to  FILLOD  must  be  tape  and  the  output  from  FILSAV 
must  be  tape.  The  files  are  now  opened,  depending  on  the  third  param- 
eter, the  tape  is  spaced  to  the  proper  file.  The  subroutine  now  loops 
through  reads  from  input  and  writes  to  output  until  the  input  unit  is 
exhausted.  Then  the  files  are  closed. 

Subroutine  SVTP  is  illustrated  in  figure  182, 
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Figure  182.  Subroutine  SVTP:  Entry  FILLOD 
(Part  1 of  5) 

843 


i 

] 

i 


w 


r 


Figure  182.  (Part  3 of  5) 
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9.53  Subroutine  TICMAKE 

PURPOSE ; To  create  the  necessary  coordinates  for  tlcraarks 

along  predefined  meridians  and  parallels.  If 
the  number  of  tlcmarks  desired  is  one,  it  is 
plotted  in  the  lower  left-hand  corner.  If  it 
is  two,  the  second  ticmark  is  In  the  upper  right- 
hand  corner;  for  three  or  more  ticmarks  they  go 
clockwise  around  a square  starting  in  the  lower 
left-hand  corner. 

ENTRY  POINTS:  TICMAKE 

FORMAL  PARAMETERS:  NTIC  - Number  of  ticmarks  desired 

TICK  - Array  of  x-coordinates  for  ticmarks 

TICY  - Array  of  y-coordinates  for  ticmarks 

DTORAD  - Constant  to  convert  degrees  to  radians 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  None 

Method : 

For  each  ticmark  on  the  plot  the  arrays  TICK  and  TICY  have  to  contain 
three  entries  of  x-  and  y-coordinates  respectively  so  that  when  the 
three  points  are  connected  they  outline  the  ticmark.  The  value  of 
TICX(l)  is  decreased  by  one  unit  (contained  in  variable  X;  if  the 
desired  plotting  units  are  degrees,  X will  equal  one;  otherwise,  X 
will  equal  the  conversion  factor  to  radians)  and  stored  in  riCX(2). 
T1CX(3)  is  set  equal  to  TICX(l).  TICY(2)  is  set  equal  to  TICY(l) 
and  TICY(3)  to  the  value  of  TICY(l)  increased  by  one  unit  X.  This  is 
repeated  for  the  number  of  ticmarks  desired.  The  first  entry  of  the 
second  ticmark  is  in  TICX(4)  and  TICY(4);  the  second,  in  TICX(5)  and 
TICY(5);  and  so  forth.  When  the  coordinates  for  all  ticmarks  are  set, 
the  x-coordinates  are  tested  and  if  necessary  adjusted  so  that  they 
fall  within  the  limits  of  zero  and  360  degrees.  The  y-coordinates 
are  tested  and  if  necessary  adjusted  so  that  they  fall  within  -90 
and  90  degrees. 

Subroutine  TICMAKE  is  illustrated  in  figure  183. 


Set  J0=1 


Do  For 
N = 1 
To  NTIC 


For  J = 1 , 2 
Set  K = JCH-J 
TICX(K)=TICX(JO) 
TICY(K)=TICY(JO) 


Set 

TICX(2)=TICY(1)-X 
TICY(3)=TICY(1)+X 
JO  = 4 


NTI03 


Set 

TICX(5)=TICX(4)-X 
|TICY(6)=TICY(4)-X| 
JO  = 7 


TICX(J04-1)= 
TICX(JO)+X 
TICY(JO+2)= 
TICY(JO)- X 


■ 


N = 3*NTIC 


TICX(ll)  = 
TICXUO)  +X 
TICY(12)  = 
TICY(IO)  +X 


Figure  183.  Subroutine  TICMAKE  (Part  1 of  2) 
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9.54  Function  TIMEDAY 


i 


PURPOSE ; 

ENTRY  POINTS; 

FORMAL  PARAMETERS; 
COMMON  BLOCKS; 
SUBROUTINES  CALLED; 
Method ; 


To  obtain  the  current  time  of  day.  j 

TIMEDAY  i 

1 

t 

DUMMY  - A dummy  parameter  ' 

None  ! 

; 

DATIM  ) 


This  function  is  used  to  place  the  current  time  of  day  in  A6  format.  The 
six  characters  that  are  returned  are  used  as  follows:  two  characters, 
hour;  two  characters,  minute;  two  characters,  seconds.  The  system  function 
DATIM  is  used  to  retrieve  the  time  of  day  in  this  format.  When  called  from 
a FORTRAN  program,  the  result  is  returned  in  floating  point. 

Function  TIMEDAY  is  illustrated  in  figure  184. 
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9.55  Subroutine  TIMEME 


PURPOSE: 


To  record  and  print  differential  and  cumulative 
differential  time  Intervals. 


ENTRY  POINTS;  TIMEME 

FORMAL  PARAMETERS ; I - Integer  variable  used  as  described  below 


COMMON  BLOCKS;  None 

SUBROUTINES  CALLED;  GETCLOCK 


Method ; 

The  formal  parameter  Is  used  as  follows : 

I = -3  Reactivate  clock 
I = -2  Deactivate  clock 
I = -1  Initialize  TIMEME 

I = 0 Print  differential,  cumulative  differential,  and  elapsed  times 

I^I^IO  Place  differential  and  cumulative  differential  times  in 
cell  I. 

TIMEME  is  used  in  (^ICK  to  obtain  the  differential  and  cumulative  execu- 
tion times  of  different  stages  of  a program.  A call  on  TIMEME  with  I = 

-1  initializes  its  internal  clock.  Subsequent  calls  with  I^ISIO  will 
record  the  differential  time  in  the  Ith  differential  time  cell  and  will 
add  the  differential  time  into  the  cumulative  differential  time  cell. 

For  example,  to  obtain  the  separate  running  times  for  three  stages  of  a 
program,  one  would  call  TIMEME  with  I = -1  at  the  beginning  of  the  first 
stage  to  initialize  the  timing.  A call  with  I = 1 at  the  end  of  this 
stage  would  cause  the  elapsed  time  to  be  recorded  in  cell  1 of  the  dif- 
ferential time  array  and  to  be  added  into  cell  1 of  the  cumulative  time 
array.  Calls  with  1=2  and  I = 3 at  the  end  of  the  second  and  third 
stages,  respectively,  would  similarly  fill  the  second  and  third  cells 
of  the  two  arrays.  Notice  that  I is  used  as  a label  for  the  cells,  not 
as  an  Iteration  index. 

It  is  possible  to  exclude  time  used  for  irrelevant  operations  by  using 
calls  with  I = -2  and  I = -3  at  the  beginning  and  end  of  each  irrelevant 
operation  to  "turn  off"  the  internal  clock.  For  example,  if  one  has  a 
print  subroutine  which  can  be  called  at  any  time  to  produce  debug  prints, 
these  print  times  can  be  excluded  from  the  running  times  by  making  a call 
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with  I = -2  at  the  beginning  of  the  print  subroutine  and  a call  with 
I = -3  at  the  end.  This  causes  the  time  elapsed  during  the  print  routine 
to  be  subtracted  from  the  differential  time  of  the  calling  stage  of  the 
program. 

A call  with  1=0  causes  the  differential  and  cumulative  differential 
time  arrays  to  be  printed,  as  well  as  the  total  time,  the  time  lost,  and 
the  sum  of  these  two,  or  the  total  elapsed  time. 

Three  error  warnings  may  be  Issued  from  TIMEME: 

a.  ILLEGAL  TIMEME  CALL  I = (X) 

(if  I > 10) 

b.  ERROR  - STOP  ATTEMPTED  WITH  CLOCK  ALREADY  STOPPED 

(if  two  successive  calls  with  I = -2  are  made  without  an 
Intervening  call  with-  I = -3) 

c.  ERROR  - RESTART  ATTEMPTED  WITH  CLOCK  ACTIVE 

(if  two  successive  calls  with  I = -3  are  made  without  an 
intervening  call  with  I = -2) 

After  each  of  these  messages , the  subroutine  returns  with  no  further  pro- 
cessing. 

Subroutine  TIMEME  is  illustrated  in  figure  185. 
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9.56  Function  TOFM 


PURPOSE : 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 

SUBROUTINES  CALLED: 

CALLED  BY; 

Method ; 

Time  of  flight  for  a missile  weapon  is  calculated  based  on  distance 
between  launch  and  target  (DIST) , constant  (CMISS),  and  attributes 
TOFMIN  and  RNGMIN.  Constant  CMISS  is  computed  for  each  missile  type 
using  attributes  RANGE,  TOFMIN,  RNGMIN,  and  SPEED. 

_ (RANGE/SPEED)  -TOFMIN 
(RANGE  -RNGMIN) *90 

Function  TOFM  is  illustrated  in  figure  186, 


Compute  time  of  flight  for  missile  weapons 
TOFM 

TOFMIN  = attribute  TOFMIN,  minimum  flight  time 
(hours) 

CMISS  = a constant  determined  by  PLANSET 
DIST  = distance  from  launch  to  target  (nautical 
miles) 

RNGMIN  = attribute  RNGMIN,  minimum  range  (nau- 
tical miles) 

None 

None 

GETDTA,  MISASGN,  FIXWEAP 
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9.57  Subroutine  UNCODE 

PURPOSE : To  decode  an  Instruction  code 

ENTRY  POINTS:  UNCODE 

FORMAL  PARAMETERS;  INP:  Input  instruction  code 

rw;  (bits  29-32)  +1 

IX:  bits  33-35 

TY:  (bit  33)  +1 

IZ:  bits  34-35 

COMMON  BLOCKS:  None 

SUBROUTINES  CALIJID:  None 


Me  thod : 

Tlie  method  is  to  use  FLD  to  break  INP  into  TW,  IX,  TY,  and  IZ. 
Subroutine  L^’CODE  is  illustrated  in  figure  187. 
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Figure  187.  Subroutine  UNCODE 


9.58  Subroutine  VALFND 


PURPOSE ; 


To  find  the  value  of  an  attribute  given  an 
Identifying  attribute's  value 


ENTRY  POINTS:  VALFND 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


IDAN:  Attribute  number  of  desired  attribute 

IDAP:  Address  of  desired  attribute 

VALUE;  Value  of  desired  attribute  (output) 

JDAN:  Attribute  number  of  Identifying  attribute 

JDAP;  Address  of  Identifying  attribute 

XVALUE:  Value  of  Identifying  attribute 

CIO,  C20,  C30,  SCRTCH 


SUBROUTINES  CALLED;  GETNXT,  HEAD,  LINKUP,  NEXTTT,  PRIMHD,  RETRV, 

SETSCH 


Method; 

Step  One 

First  the  ATRIB  chain  Is  searched  until  both  Identifier  attribute  (JDAN) 
and  desired  attribute  (IDAN)  are  found.  For  each  attribute  a list  Is 
made  of  the  record  type  or  types  which  contain  these  (LIST  for  IDAN, 

MIST  for  JDAN). 

Step  Two 

If  JDAN  Is  DESIG  (JDAN=3),  LIST  Is  searched  for  a match  in  the  ITGRT 
array  which  contains  all  target  related  record  types.  If  no  match  is 
found  an  error  has  occurred.  If  a match  is  found,  VALFND  branches  to 
retrieve  the  target  by  its  DESIG  than  retrieve  the  desired  record  type. 
Finally,  VALUE  is  set  from  MAIN  and  the  subroutine  exits. 

Step  Three 

If  JDAN  is  not  DESIG  the  process  uses  steps  three  and  four.  In  step 
three  VALFND  attempts  to  find  a set  of  record  types  which  will  connect 
one  record  type  in  LIST  to  one  in  MIST.  This  Is  done  by  searching  the 
chains  of  which  the  record  types  In  the  two  lists  are  masters  and  details. 
Potential  Intermediate  record  types  are  stored  in  KIST.  The  final  set 
of  record  types  Is  stored  in  NIST. 

Step  Four 

The  primary  header  (see  section  4.4)  is  now  determined  by  finding  the 
lowest  ntnnbered  record  type  and  calling  PRIMHD.  LINKUP  and  SETSCH  are 


called  to  build  a retrieval  scheme  and  GETNXT  is  executed  until  MAIN 
(JDAP)=XALUE.  Then  VALUE  is  set  to  MAIN(IDAP)  and  VALFND  exits. 

Subroutine  VALFND  is  Illustrated  in  figure  188. 
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Figure  188.  (Part  8 of  8) 
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9.59  Function  VALTAR 

PURPOSE : To  compute  the  fraction  of  target  value  at 

weapon  time  of  arrival. 

ENTRY  POINTS:  VALTAR 

FORMAL  PARAMETERS ; FV(1)  - fraction  of  value  available  at  the  Ith 

component 

TV(r)  - time  of  the  Ith  component 
NV  - number  of  value  - time  components  (1-5) 
M - indicator  of  functional  form  of  time 
curve 

= 1 use  step-linear  form 
= 2 use  exponential  form  (not  presently 
implemented) 

T - time  for  which  value  is  desired 
COMMON  BLOCKS;  None  ’ 

SUBROUTINES  CALLED : None 

CALLED  BY;  RECON,  EVALPLAN,  PROCCOMP,  CALCCMP,  SALVAL 

Method : 

VALTAR  uses  a linear  interpolation  formula  to  compute  the  fraction  of 
target  value  remaining  at  weapon  time  of  arrival  (parameter  T),  where 
FV  and  TV  are  the  arrays  of  fractional  value  remaining  and  time  forming 
a step-linear  function  of  fraction  of  target  value  remaining  versus 
time. 

The  logic  of  function  VALTAR  is  shown  in  figure  189, 


Figure  189,  Function  VALTAR 
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9.60  Function  XCOORD 


PURPOSE ; 

To  convert  latitude  or  longitude  from  degrees, 
minutes , and  seconds  to  the  QUICK  coordinate 
system. 

ENTRY  POINTS: 

XCOORD 

FORMAL  PARAMETERS: 

ICOORD 

LATLONG 

- The  latitude  or  longitude  coordinate 
to  be  converted 

- Type  of  coordinate  (=  LAT,  latitude; 
= LON,  longitude) 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

INSET, 

TARDESIG,  KRUNCH 

Method : 

Function  XCOORD  Is  called  to  convert  a latitude  or  longitude  coordinate 
in  degrees,  minutes,  and  seconds  (ICOORD)  to  decimal  degrees  (XCOORD). 
Additionally,  the  values  returned  are  expressed  in  terms  of  the  coordi- 
nate system  used  in  all  subsequent  programs  of  the  QUICK  system.  In 
this  system,  latitude  is  measured  with  respect  to  the  equatorial  plane, 
positive  (0®  to  90®)  in  the  Northern  Hemisphere  and  negative  (0®  to  -90®) 
in  the  Southern  Hemisphere.  Longitude  is  measured  positively  westward 
from  the  Greenwich  meridian  with  all  values  in  the  range  from  0®  to  360® . 

Function  XCOORD  is  illustrated  in  figure  190. 
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9.61  Subroutine  XMATH 


PURPOSE: 


To  execute  mathematical  calculations 


ENTRY  POINTS;  XMATH 


FORMAL  PARAMETERS: 


X:  Array  of  Internal  variables  to  be  used 

In  calculations 

BEGIN:  Index  of  first  Instruction  code 

END:  Index  of  end  of  calculation 


COMMON  BLOCKS:  C30 

SUBROUTINES  CALLED:  INSGET,  lORFL,  OFVAL,  UNCODE 


Method: 


This  subroutine  Is  best  understood  by  reference  to  figure  191.  Basically 
the  Instructions  retrieved  from  INSGET  starting  with  BEGIN  and  ending 
with  END  are  executed.  In  the  process,  values  will  be  stored  in  X 
which  is  used  for  Internal  variables.  The  current  value  is  maintained 
locally  in  Q and  the  new  value  is  stored  locally  in  R.  For  each  Instruc- 
tion a branch  (IBR)  is  set  and  then  the  remainder  of  the  instruction  is 
used  to  determine  the  value  of  R.  Then  the  branch  Is  made  and  whatever 
operation  on  Q and  R Is  called  for  Is  carried  out  with  the  result 
placed  in  Q. 


START 


Set  Index 
to  Beginning 


End  of 

Instructions? 


RETURN 


Call  INSGET 
and  UNCODE 
to  Get  Next 
Instruction 


Is  Instruction 
Proper  for 
XMATH? 


Instruction? 


Set  IBR  from 
Operation 


Store  Old 
Value  and 
Update  Index 


Store 

Instruction? 


Set  IBR 
to  1 for  Load 


Figure  191.  Subroutine  XMATH  (Part  1 of  3) 
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Figure  191.  (Part  3 of  3) 
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9.62  Subroutine  XWHERE 


PURPOSE; 


To  execute  a WHERE  clause 


ENTRY  POINTS;  XWHERE 


FORMAL  PARAMETERS; 


BEGIN;  Index  of  beginning  of  WHERE  clause 
BRANCH;  1 - Evaluation  Is  true 
2 - Evaluation  Is  false 


COMMON  BLOCKS;  C30,  DEFVAR 

SUBROUTINES  CALLED;  INSGET,  lORFL,  OFVAL,  UNCODE 


Method; 

This  subroutine  Is  best  understood  by  reference  to  figure  192.  Basic- 
ally the  Instructions  retrieved  from  INSGET  starting  with  BEGIN  and 
ending  with  an  'end  of  clause'  Instruction  are  executed.  In  the  pro- 
cess the  value  array  X and  the  logical  array  AVARB  are  set.  The  end  of 
clause  causes  BRANCH  to  be  set  from  the  last  value  stored  In  AVARB  --  1 
for  AVARB  true,  2 for  false.  The  current  value  Is  maintained  locally 
In  Q and  new  values  are  stored  locally  In  R.  The  current  logical  value 
Is  maintained  In  KNOW  and  the  new  value  Is  stored  In  KNEW.  As  each 
Instruction  is  executed  the  values  of  these  variables  are  loaded  or 
stored.  Relational  instructions  cause  Q and  R to  be  compared  with  the 
result  placed  In  KNEW.  Calculations  are  performed  with  the  results 
placed  in  Q and  logical  operation  on  KNOW  and  KNEW  cause  KNOW  to  have 
the  final  result. 


Figure  192.  Subroutine  XVfflERE  (Part  1 of  9) 
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Figure  192.  (Part  8 of  9) 
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9.63  Function  ZTAN 


PURPOSE ; 


To  ad  jus**  a standard  parallel  If  It  goes  through 
the  Equator. 


ENTRY  POINTS;  ZTAN 


FORMAL  PARAMETERS; 


PHI  - Standard  parallel  which  goes  through  the 
Equator 


COMMON  BLOCKS!  None 


SUBROUTINES  CALLED:  None 


Method : 


The  value  of  PHI  which  may  be  PHIl  or  PHI2  as  input  on  the  user's  param- 
eter card  represents  the  standard  parallel  closest  to  the  Equator  or 
the  pole  has  to  be  adjusted  by  a factor  computed  in  ZTAN  if  it  goes 
through  the  Equator.  ZTAN  is  computed  with  the  formula: 


ZTAN  = TANF 


1.57  - ATANf/-^  * TANF  (ABSF(PHI)) 


'>) 


where  A = 6378206.4  and  B = 6356536.8. 


Function  ZTAN  is  illustrated  in  figure  193, 
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APPENDIX  A 


COP  EXTERNAL  COMMON  BLOCKS 


This  appendix  contains  those  common  blocks  used  to  coinminlcate  between 
the  COP  and  related  modules  of  the  QUICK  system.  The  appendix  contains 
the  following  conmon  blocks: 


o 

CIO 

IDS  Communications  control  block 

o 

C15 

Header  reference  codes 

o 

C20 

Record  type  name  and  number 

o 

C30 

Data  base  attributes 

o 

C40 

Utility  table 

o 

C50 

Display  table 

o 

ERRCOM 

IDS  error  code  control  block 

o 

INS 

Input  Instruction  code  buffer 

o 

IPGT 

Input  card  Image  buffer 

0 

OOPS 

Error  flag 

0 

STRING 

Interpreted  Input  character  string 

r 

i 

I 

t 


I 


i 

I 


I 

I 


I 


1 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

CIO 

IREFZ 

IDS  communications  control  block 

IREFZ 

Binary  reference  code,  updated 
whenever  IDS  action  takes  place 

MQ(2) 

(Not  used) 

IRECTP 

Record  type  number,  updated  whenever 
IDS  action  takes  place 

NQ 

(Not  used) 

ERCODE 

IDS  error  code 

NQ2 

(Not  used) 

C15 

HEADRF 

Header  reference  code.  BCD  represen- 
tation. Variable  Is  type  character 
*8 

C20 

Contains  values  for  record  type  INDRCT 

RNAME 

Record  type  name 

RNUMB 

Record  type  number 

C30 

MAIN(227) 

Contains  all  data  base  attributes. 

For  precise  attributes  definition 
and  their  addresses  within  the  array 
see  Users  Manual,  Volume  I 

C40 

Utility  table  (TABLEZ) 

TABREF 

TABLEZ  BCD  reference  code  (type  Is 
character*8) 

TABLE (100) 

Body  of  table 

C50 

Display  table  (DISPDT) 

DSPTAB(IOO) 

Body  of  table  (see  section  6) 

ERRCOM 

NORMAC 

Action  to  take  If  error  code  Is  not 

In  list  CHEKS  (ABORT,  FLAG,  PASS) 

CHCKAC 

Action  to  take  If  error  code  is  In 
list  CHEKS 

ERUNIT 

Unit  on  which  to  print  error  message 

NUMCHK 

Number  of  error  codes  in  CHEKS  list 

CHEKS(30) 

List  of  error  codes  to  check 

I 
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BLCXX 

VARIABLE  OR  ARRAY 

DESCRIPTION 

INS 

INSBUF(IOO) 

Input  Instruction  code  buffer 

INSREF(50) 

Reference  codes  for  Input  Instruction 
code  tables.  (Type  Is  character*8) 

INSTBS 

Number  of  Instruction  code  tables 

INSTCR 

Index  number  of  Instruction  code 
table  currently  In  buffer 

IPQT 

POINTER 

Points  to  next  character  of  Input 
card  Image 

INBUF(80) 

Input  card  Image.  Each  letter  Is 
stored  In  separate  word 

SPCIAL 

Switch  which  controls  use  of  '+' 
and  (true  If  preceding  Input 

string  was  an  operator;  else  false) 

ENDSW 

End  of  Input  switch 

OOPS 

ERROR 

Error  flag,  causes  COP  to  check  only 
syntax  when  on 

STRING 

TYPE 

Current  Input  string's  type  (not  the 
attribute  of  the  same  spelling).  If 
output  from  subroutine  GETSTR  results 
are: 

=1,  operator 

=2,  long  string  delineates 
=9,  alphabetic 
*10,  ninnerlc 

VALUE 

Identifying  value,  depends  on  type 
of  string 

NUMBER 

Floating  point  value  If  string  type 
=10 

ALPHA 

Character  string  being  Interpreted. 
Will  be  blank  If  string  t3T>e  =1. 
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APPENDIX  B 


EXECUTABLE  JOB  CONTROL  LANGUAGE  (JCL) 
QUICK  SYSTEM 


The  QUICK  system  executes  from  an  H*(HIS6000  System  Loadable  file). 
Figure  194  contains  the  JCL  necessary  to  build  the  H*  directly  from 
source  files.  Note  that  within  the  FORTY  activity  for  each  link  an 
object  file  (catalog  632IDPOO/QUIK/OBJECT)  is  also  created.  Figure 

195  contains  the  JCL  to  recreate  the  H*  from  these  object  files.  In 
effect,  the  programmer  needs  only  replace  the  SELECT  of  the  object 
deck  with  the  corresponding  FORTY  activity  for  each  overlay  link  in 
which  the  source  has  changed  to  recreate  the  H*.  Finally,  figure 

196  contains  the  JCL  to  create  the  QUICK  utility  library  from  source. 


IDENT  5162,COMPL,314,I  M A PROG, 631, 12 

USERID  632IDP99$PASSWORD/UZZ 

LIMITS  30,60K,,50K 

OPTION  FORTRAN, NOGO 

LIBRARY  UL,PL 

LOWLOAD 

ENTRY  

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/COP 
SELECT  632IDPOO/QUK/SOURCE/COP/COP 
SELECT  632IDP00/QUK/ SOURCE/COP/BANNER 
SELECT  632IDPOO/QUIK/SOURCE/COP/ERPROC 
SELECT  632IDPOO/QUIK/SOURCE/COP/HDFND 
SELECT  6 32 IDPOO/ QU  K/ SOURCE/ COP/ INICOP 
SELECT  632IDPOO/QUIK/SOURCE  /COP/ INSPUT 
SELECT  632IDPOO/QUIK/SOURCE/COP/MODGET 
IDS  DECK 

LIMITS  30,60K,,50K 
FILE  *3,X3R,100R 

PRMFL  C* , W , S , 6 32 IDPOO/ QUIK/OB JECT/ QDATA 

SELECT  632IDPOO/QUrK/SOURCE/COP/ QDATA 

SELECT  632IDP00/QUIK/ SOURCE/COP/ QDATB 

USE  .QMAX/1/, .QAREA/3126/, .QMIN/l/, .FRRD. 

LINK  BOOTT 

FORTY  MAP , XREF , DECK 

PRMFL  C*,W,S,632IDPOO/QUK/OBJECT/BOOT 
SELECT  632  IDPOO/ QUK/ SOURCE/BOOT 
SELECT  632IDPOO/QUIK/SOURCE/COP/DCTFND 
SELECT  632IDPOO/QUIK/SOURCE/COP/MNMFND 
SELECT  632IDPOO/QUIK/SOURCE/COP/NUMFND 
SELECT  632IDPOO/QUIK/SOURCE/COP/RNMFND 
SELECT  632IDPOO/QUIK/ SOURCE/COP/SEEKER 
SELECT  632IDPOO/QUIK/SOURCE/COP/STRMAK 
LINK  TABSTR.BOOT 

USE  TABLZ/568/ 

LINK  ERRF 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/ERRFND 
SELECT  632IDPOO/QUIK/SOURCE/COP/ERRFND 
SELECT  632IDPOO/QUIK/SOURCE/COP/LNGSTR 
SELECT  632IDPOO/QUIK/SOURCE/COP/SYNTAX 
SELECT  632IDPOO/QUIK/SOURCE/COP/TABINS 
SELECT  632 IDPOO / QU  DC/ SOURCE / COP/WEBSTR 
LINK  INPT,ERRF 

FORTY  MAP, XREF, DECK 


Figure  194.  H*  Creation  From  Source  (Part  1 of  6) 
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PRMFL  C*,W, S, 6321 DPOO/QUIK/ OBJECT/I NPTRN 

SELECT  632IDPOO/QUIK/SOURCE/COP/INPTRN 
SELECT  632 IDPOO/ QU IK/ SOURCE/ COP/DELTAB 
SELECT  632IDPOO/QUIK/SOURCE/COP/INMATH 
SELECT  632IDPOO/QUIK/SOURCE/COP/LINEIO 
SELECT  632IDPOO/QUIK/SOURCE/COP/PARLEV 
SELECT  632IDPOO/QUIK/SOURCE/COP/TABGET 
LINK  JLM, TABSTR 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/JLM 
SELECT  632IDPOO/QUIK/SOURCE/JLM/JLM 
LINK  ASSI 
FORTY  MAP , XREF , DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/ASSIGN 
SELECT  632IDPOO/QUIK/SOURCE/JLM/ASSIGN 
SELECT  632IDPOO/QUIK/SOURCE/ JLM/ ALPHAS 
SELECT  632 IDPOO/ QUIK/ SOURCE/ JLM/PLAYERS 
SELECT  632IDPOO/QUIK/SOURCE/JLM/TOPRINT 
LINK  SELE.ASSI 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/SELECT 
SELECT  632IDPOO/QUIK/SOURCE/JLM/SELECT 
SELECT  632IDPOO/QUIK/SOURCE/JLM/ADTOBASE 
SELECT  632IDPOO/QUIK/ SOURCE / JLM/ DEFAULT 
SELECT  632IDPOO/QUIK/SOURCE/JLM/KRUNCH 
SELECT  6 32 IDPOO/ QUIK/ SOURCE/ JLM/ SAMSET 
SELECT  632IDP00/QUIK/SCIURCE/JLM/SETDEF 
LINK  ASTE,SELE 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/ ASTERISK 

SELECT  6 32 IDPOO/ QUIK/ SOURCE/ JLM/ASTER ISK 
LINK  DATA, JLM 
FORTY  MAP, XREF, DECK 

PRMFL  C*. W, S , 632IDPOO/QUIK/OBJECT/DATA 
SELECT  632IDPOO/QUIK/SOURCE/DATA/DATA 
LINK  DATADL 
FORTY  MAP , XREF , DECK 

PRMFL  X*,W,S,632IDPOO/ QU IK/ OB JECT/DELETE 

SELECT  632IDP00/ QUIK/ SOURCE/DATA/DELETE 
LINK  DATACH, DATADL 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/CHANGE 
SELECT  632IDP00/QUIK/ SOURCE /DATA/ CHANGE 
SELECT  632IDPOO/QUIK/SOURCE/DATA/DESSCH 
SELECT  632IDPOO/QUIK/SOURCE/DATA/NXTDES 


SELECT  632IDP00/ QUIK/SOURCE/ DATA/ VALPUT 
L INK  DATACR , DATACH 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/CREATE 
SELECT  632IDPOO/QUIK/SOURCE/DATA/CREATE 
SELECT  632IDPOO/QUIK/SOURCE/DATA/VALPUT 
LINK  DBMOD.DATA 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/DBMOD 
SELECT  632IDPOO/QUIK/SOURCE/DBMOD/DBMOD 
SELECT  632IDPOO/QUIK/SOURCE/DBMOD/DESTAB 
LINK  INDXER,DBMOD 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W, S,632IDPOO/QUIK/OBJECT/INDEXER 
SELECT  632 IDPOO / QU IK / SOURCE / INDEXER/ INDEXER 
SELECT  632IDP00/ QUIK/SOURCE/ INDEXER/ COMPLEX 
SELECT  632 IDPOO / QU IK / SOURCE /INDEXER/ CRTBLE 
SELECT  632IDPOO/QUIK/SOURCE/INDEXER/SETVAL 
SELECT  632IDPOO/QU1K/SOURCE/INDEXER/VLRADI 
LINK  PLANS , INDEXER 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/PLANSET 
SELECT  6 32 IDPOO/ QU IK/ SOURCE /PLANSET/PLANSET 
SELECT  632IDP00/QUIK/ SOURCE/ PLANSET/ AD JUSTGP 
SELECT  632IDPOO/QUIK/SOURCE/PLANSET/CALC(MP 
SELECT  632IDPOO/QUIK/SOURCE/PLANSET/GRPEM 
SELECT  632IDPOO/qUIK/SOURCE/PLANSET/PRINTGP 
SELECT  632 IDPOO/ QUIK/ SOURCE/ PLANSET/ SRTTGT 
SELECT  632IDPOO/QU1K/SOURCE/PLANSET/TANKER 
SELECT  632IDPOO/QUIK/SOURCE/PLANSET/VLRADP 
LINK  PREP, PLANS 
FORTY  MAP , XREF , DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/PREPALOC 
SELECT  632IDPOO/QUIK/SOURCE/PREPALOC/PREPALOC 
LINK  A 

FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632TDPOO/QUIK/OBJECT/TARLST 
SELECT  632 IDPOO/ QU IK / SOURCE /PREPALOC/TARLST 
LINK  B,A 
FORTY  MAP , XREF , DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/PARTA 
SELECT  632IDPOO/QUIK/SOURCE/PREPALOC/PARTA 
SELECT  6 32 IDPOO / QU IK / SOURCE / PREPALOC / DEPROUT 
SELECT  632IDPOO/QUIK/SOURCE/PREPALOC/FACTORCG 
SELECT  632IDPOO/QUIK/SOURCE/PREPALOC/FIXWEP 

4 
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SELECT  632IDPOO/QU1K/SOURCE/PREPALOC/MAKECHG 
SELECT  632IDPOO/qUK/SOURCE/PREPALOC/PENROUT 
LINK  C,B 
FORTY  MAP, XREF, DECK 

PRMFL  C* , W , S , 632 IDPOO/ QU ICK/OB JECT/WEPPREP 

SELECT  632IDPOO/QUIK/SOURCE/PREPALOC/WEPPREP 
LINK  D,C 
FORTY  MAP, XREF, DECK 

FRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/TGTPREP 
SELECT  632IDPOO/QUIK/SOURCE/PREPALOC/TGTPREP 
LINK  E,D 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/PARTB 
SELECT  632IDPOO/QUIK/SOURCE/PREPALOC/PARTB 
SELECT  632IDPOO/QUIK/SOURCE/PREPALOC/COMPWRIT 
SELECT  632IDPOO/QUIK/SOURCE/PREPALOC/GRPWRIT 
LINK  EDIT, PREP 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/EDITDB 
SELECT  632IDPOO/QUIK/SOURCE/EDITDB/EDITDB 
LINK  ECOUNT 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/COUNTS 
SELECT  632IDPOO/QUIK/SOURCE/EDITDB/COUNTS 
LINK  EGENED, ECOUNT 
FORTY  MAP , XREF , DECK 

PRMFL  C*. W, S , 632 IDPOO/ QUDC/OBJECT/GENEDIT 

SELECT  6 32  IDPOO/  QUK/  SOURCE/ED  ITDB/  GENEDIT 
SELECT  632 IDPOO/ QU  DC/ SOURCE/EDITDB/BU ILDTAB 
SELECT  632IDPOO/QUIK/SOURCE/EDITDB/FORMLOC 
SELECT  632IDPOO/QUIK/SOURCE/EDITDB/SETFLD 
SELECT  632IDPOO/QU1K/SOURCE/EDITDB/SWITH 
LINK  ENORMA, EGENED 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/NORMAL 
SELECT  632IDPOO/QUIK/SOURCE/EDITDB/NORMAL 
LINK  EPROCE , ENORMA 
FORTY  MAP, XREF, DECK 

PRMFL  C*,W,S,632IDPOO/QUIK/OBJECT/PROCEDIT 
SELECT  632IDPOO/QUIK/SOURCE/EDITDB/PROCEDIT 
SELECT  632IDPOO/QUIK/SOURCE/EDITDB/XWITH 
LINK  REPORT, EDIT 
FORTY  MAP, XREF, DECK 

PRMFL  C* ,W , S , 632IDP00/ QUIK/OB JECT/REPORT 
SELECT  632IDPOO/QUIK/SOURCE/REPORT/REPORT 


Figure  194.  (Part  4 of  6) 
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632 IDPOO/ QUnc/ SOURCE/ REPORT/ DSPPUT 
6 32IDPOO / QU IK/ SOURCE/REPORT/ TABMNT 
RPTDSN 

MAP, XREF, DECK 

C*,W,S,632IDPOO/QU IK/OBJECT/DESIGN 
6 32IDPOO/ QUIK/ SOURCE/REPORT/DES IGN 
RPTALT, RPTDSN 
MAP, XREF, DECK 

C*,W,S,632IDPOO/QUK/OBJECT/ ALTER 
632IDPOO/QUIK/SOURCE/REPORT/ ALTER 
RPTEWK, RPTALT 
MAP, XREF, DECK 

C*,W,S,632IDPOO/QUIK/OBJECT/DSPMAK 
632IDPOO/QUIK/SOURCE/REPORT/DSPMAK 
RPTPRN,RPTDMK 
MAP, XREF, DECK 

C*,W,S,632IDPOO/QUK/OBJECT/PRINT 
632IDPOO/QUIK/SOURCE/REPORT/PRINT 
6 3 2 IDPOO/ QUIK/SOURCE/REPORT/XDEFN 
SRM,  REPORT 
MAP, XREF, DECK 

C*,W,S,632IDPOO/QUIK/OBJECT/SRM 

632IDPOO/qUIK/SOURCE/SRM/SRM 

EIM,SRM 

MAP, XREF, DECK 

C* , W , S , 6 32 IDPOO/ QUIK /OB JECT/E IM 
6 32 IDPOO/ QUIK /SOURCE/E  IM/E IM 
632IDPOO/ QUIK/ SOURCE/EIM/CONVLL 
BSIDAC 

MAP, XREF, DECK 

C*,W, S,632IDP00/QU IK/OB JECT/SIDAC 
632IDPOO/QUIK/SOURCE/EIM/SIDAC 
BOTHER, BSIDAC 
MAP, XREF, DECK 

C*,W,S,632IDPOO/QUIK/OBJECT/BLDOTH 
6 32IDP00/ QUIK/ SOURCE/EIM/BLDOTH 
632 IDPOO/ QUIK/SOURCE/EIM/XEDEFN 
BTABLE , BOTHER 
MAP, XREF, DECK 
632IDPOO/QUIK/OBJECT/TABLE 
632IDPOO/QUIK/SOURCE/EIM/TABLE 
PLOTTT, BTABLE 
MAP, XREF, DECK 

632IDPOO/QUIK/OBJECT/PLOTDATA 
6 3 2 IDPOO/ QU IK / SOURCE /E IM/ PLOTDATA 


Figure  194.  (Part  5 of  6) 
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SELECT  632IDPOO/QUIK/SOURCE/EIM/PICS 
SELECT  632IDPOO/QUIK/SOURCE/EIM/PROJCT 
EXECUTE  DUMP, DEBUG, NREST.JREST 
LIMITS  30,60K,-3K,30K 
FFILE  P*,LGU/(06,42,43,11,12) 

PRMFL  H*^/W,R,632IDPOO/QUIK/COP/HSTAR 

PRMFL  QD,R/W,R,632IDPOO/QUIK/COP/IDS 

PRMFL  UL , R/W , R , 632 IDPOO/ QUIK/ LIBRARY/UT IL 

PRMFL  PL,R,S,LIBRARY/PLOTLIB 

FILE  02,X2R,100L 

FILE  08,X8R,100L 

FILE  19,X19R,100L 

TAPE9  20,X20D, , 12345, , INPUT- JAD 

FILE  21,X21R,50L 

FFILE  21,NBUFFS/2 

FILE  22,X22R,50L 

FFILE  22,NBUFFS/2 

FILE  23,X23R,50L 

FILE  23,NBUFFS/2 

FILE  24,X24R,50L 

FFILE  24,NBUFFS/2 

FILE  25,X25R,100R 

FILE  30,X30R,10L 

TAPE9  31, X31D, ,54321, ,OUTPUT-SPILLTAPE 
TAPE9  32,X32D, , 54345, , SAVE-RESTORE-TAPE 
TAPE9  35,X35D, ,67890, , OUTPUT- TAPE -1 
TAPED  36, X36D,, 98765,, OUTPUT-TAPE-2 
DATA  I* 

ENDJOB 


***EOF 


-</>  </>  -0>  ■</>  •</>  </>  </>  •</>  ■</>  </>  ■</>  </>  ^/>  </>  •</>  "CA  -(/>  •</>  K/>  </>  </>  </>  </>■  •</>  ■</>  -V>  ■</>  </>  </>  ^A  -CA  KA  -^A  <A  <A  <A 


IDENT  5162,C0MPL,314,I  M A PROG, 631, 12 

USERID  632IDP99$PASSWORD/UZZ 

LIMITS  30,60K,,10K 

OPTION  FORTRAN, NOGO 

LIBRARY  UL,PL 

LOWLOAD 

ENTRY  

SELECT  632IDPOO/(^IK/OBJECT/COP 
SELECT  632IDPOO/QUIK/OBJECT/QDATA 
USE  .qMAX/l/,.QAREA/3126/,.C^IN/l/,.FRRD. 

LINK  BOOTT 

SELECT  632IDPOO/QUIK/OBJECT/BOOT 
LINK  TABSTR,BOOT 
USE  TABLZ/568/ 

LINK  ERRF 

SELECT  632IPDOO/QUIK/OBJECT/ERRFND 
LINK  INPT.ERRF 

SELECT  632IDPOO/QUIK/OBJECT/INPTRN 
LINK  JLM,TABSTR 

SELECT  632IDPOO/QUIK/OBJECT/JLM 
LINK  ASS I 

SELECT  632IDPOO/QUIK/OBJECT/ASSIGN 
LINK  SELE,ASSI 

SELECT  632IDPOO/QUIK/OBJECT/SELECT 
LINK  ASTE,SELE 

SELECT  632IDPOO/qUIK/OBJECT/ASTERISK 
LINK  DATA.JLM 

SELECT  632IDPOO/QUIK/OBJECT/DATA 
LINK  DATADL 

SELECT  632IDPOO/QUIK/OBJECT/DELETE 

LINK  DATACH, DATADL 

SELECT  632IDPOO/QUIK/OBJECT/CHANGE 

LINK  DATACR, DATACH 

SELECT  632IDPOO/QUIK/OBJECT/CREATE 

LINK  DBMOD.DATA 

SELECT  632IDPOO/QUK/OBJECT/DBMOD 

LINK  INDXER.DBMOD 

SELECT  632IDPOO/QUIK/OBJECT/ INDEXER 

LINK  PLANS , INDXER 

SELECT  632IDPOO/QUIK/OBJECT/PLANSET 

LINK  PREP, PLANS 

SELECT  632IDPOO/QUIK.OBJECT/PREPALOC 
LINK  A 

SELECT  632IDPOO/QUIK/OBJECT/TARLST 
LINK  B,A 


Figure  195.  H*  Creation  From  Object  (Part  1 of  3) 
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SELECT  632IDPOO/QUIK/OBJECT/PARTA 
LINK  C,B 

SELECT  632IDPOO/QUIK/OBJECT/WEPPREP 
LINK  D,C 

SELECT  632IDPOO/QUIK/OBJECT/TGTPREP 
LINK  E,D 

SELECT  632IDPOO/QUIK/OBJECT/PARTB 
LINK  EDIT, PREP 

SELECT  632IDPOO/QUIK/OBJECT/EDITDB 
LINK  ECOUNT 

SELECT  632IDPOO/QUIK/OBJECT/COUNTS 

LINK  EGENED, ECOUNT 

SELECT  632IDPOO/QUIK/OBJECT/GENEDIT 

LINK  ENORMA, EGENED 

SELECT  632IDPOO/QUIK/OBJECT/NORMAL 

LINK  EPROCE, ENORMA 

SELECT  632IDPOO/QUIK/OBJECT/PROCEDIT 

LINK  REPORT, EDIT 

SELECT  632IDPOO/QUIK/OBJECT/REPORT 

LINK  RPTDSN 

SELECT  632IDPOO/QUTK/OBJECT/DESIGN 

LINK  RPTALT, RPTDSN 

SELECT  632IDPOO/QUIK/OBJECT/ALTER 

LINK  RPTDMK, RPTALT 

SELECT  632IDPOO/QUIK/OBJECT/DSPMAK 

LINK  REPPRN, RPTDMK 

SELECT  632IDPOO/QUIK/OBJECT/PRINT 

LINK  SRM,  REPORT 

SELECT  632IDPOO/qUIK/OBJECT/SRM 

LINK  EIM,SRM 

SELECT  632IDPOO/QUIK/OBJECT/EIM 
LINK  BSIDAC 

SELECT  632IDPOO/QUIK/OBJECT/SIDAC 

LINK  BOTHER, BSIDAC 

SELECT  632IDPOO/QUIK/OBJECT/BLDOTH 

LINK  BTABLE, BOTHER 

SELECT  632IDPOO/QUIK/OBJECT/TABLE 

LINK  PLOTTT, BTABLE 

SELECT  632IDPOO/(y]IK/OBJECT/PLOTDATA 

EXECUTE  DUMP, DEBUG, NREST.JREST 

LIMITS  10,60K,-3K,10K 

FFILE  PX,LGU/ (06,42,43, 11, 12) 

PRMFL  H*,R/W,R,632IDPOO/QUIK/COP/HSTAR 
PRMFL  QD,R/W,R,631IDPOO/QUIK/COP/IDS 
PRMFL  UL,R/W,R,631IDP00/QUIK/LIBRARY/UTIL 


Figure  195.  (Part  2 of  3) 


PRMFL 

PL , R , S , LIBRARY/ PLOTL IB 

FILE 

02,X2R,100L 

FILE 

08,X8R, lOOL 

FILE 

19,X19R,100L 

TAPE9 

20,X20D, , 12345, , INPUT- JAD 

FILE 

21,X21R,50L 

FFILE 

21,NBUFFS/2 

FILE 

22,X22R,50L 

FFILE 

22,NBUFFS/2 

FILE 

23,X23R,50L 

FFILE 

23,NBUFFS/2 

FILE 

24,X24R,50L 

FFILE 

24,NBUl;FS/2 

FILE 

25,X25R,100R 

FILE 

30,X30R,10L 

TAPE9 

31 ,X31D, , 54321, , OUTPUT-SPILLTAPE 

TAPE9 

32, X32D, , 54345, , SAVE-RESTORE-TAPE 

TAPE9 

35, X35D, ,67890, , OUTPUT-TAPE-1 

TAPE9 

36, X36D, ,98765, , OUTPUT-TAPE-2 

DATA 

ENDJOB 

I* 

***EOF 
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IDENT  5162,CUTIL,314,I  M A PROG, 631, 12 
USERID  632IDP99$PASSWORD/UZZ 
LIMITS  10,32K,,60K 
FORTY  DECK, MAP, XREF 
FILE  C*,X15,100L 
SELECT  632IPD00/QUIK/MSRC/UTIL/ ABORT 
SELECT  632IDPOO/QUIK/MSRC/UTIL/ACOS 
SELECT  632IDP00/QUIK/MSRC/UTIL/ASIN 
SELECT  632IDPOO/QUK/SOURCE/UTIL/ATFNDR 
SELECT  632IDP00/qUIK/MSRC/UTIL/ATN2PI 
SELECT  632IDP00/QUIK/MSRC/UTIL/BUFIN 
SELECT  632IDPOO/QUIK/SOURCE/UTIL/CINSGET 
SELECT  632IDPOO/QUIK/MSRC/UTIL/CLOSPIL 
SELECT  632IDPOO/QUIK/MSRC/UTIL/CLRMON 
SELECT  632IDPOO/QUIK/MSRC/UTIL/COT 
SELECT  632IDPOO/QUIK/MSRC/UTIL/DELLONG 
SELECT  632IDPOO/QUIK/MSRC/UTIL/DTFFLONG 
SELECT  632IDPOO/QUIK/MSRC/UTIL/DISTF 
SELECT  632IDPOO/qUIK/MSRC/UTIL/DOTLINE 
SELECT  632IDP00/QUK/MSRC/UTIL/ENDTAPE 
SELECT  632IDPOO/QUIK/MSRC/UTIL/ERAZE 
SELECT  632IDP00/QUIK/MSRC/UTIL/FILEHNR 
SELECT  632IDPOO/QUIK/SOURCE/FINDCLAS 
SELECT  632IDPOO/QUIK/SOURCE/UTIL/FINDSIDE 
SELECT  632TDPOO/QUK/SOURCE/UTIL/FORMAK 
GMAP  DECK 
FILE  C*,X1S 

SELECT  632IDPOO/QU1K/MSRC/UTIL/FYLCHK 
GMAP  DECK 
FILE  C*,X1S 

SELECT  632IDPOO/QUIK/MSRC/UTIL/GETCLOCK 
FORTY  DECK, MAP, XREF 
FILE  C*,X1S 

SELECT  632IDP00/QUIK/MSRC/UTIL/GETDATE 
SELECT  632IDP00/QUIK/MSRC/UTIL/GETDF 
SELECT  632IDPOO/QUIK/MSRC/UTIL/GETLOC 
SELECT  632IDPOO/QUK/SOURCE/UTIL/GETNXT 
SELECT  632IDPOO/QU1K/SOURCE/UTIL/GETSTR 
SELECT  632IDPOO, QUIK/SOURCE/UTIL/GETTAR 
SELECT  632IDP00/qUIK/MSRC/UTIL/GETVALU 
SELECT  632IDPOO/QUIK/MSRC/UTIL/GLOG 
SELECT  632IDPOO/qUIK/MSRC/UTIL/HOUSKEEP 
SELECT  632IDP00/QUIK/MSRC/UTIL/IFUNIT 
SELECT  632IDP00/QUIK/MSRC/UTIL/TGET 
SELECT  632IDPOO/QUK/MSRC/UTIL/IGETHOB 


Figure  196.  Utility  Library  Creation  (Part  1 of  4 ) 
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SELECT  632IDP00/QUIK/MSRC/UTIL/IHASH 
SELECT  632IDP00/QUIK/MSRC/UTIL/INBUFDK 
SELECT  632IDP00/QUIK/MSRC/UTIL/INBUFTP 
SELECT  632IDP00/QU1K/MSRC/UTIL/INERRDK 
SELECT  632IDP00/QUIK/MSRC/UTIL/INERRTP 
SELECT  632IDP00/qUIK/MSRC/UTIL/INLABEL 
SELECT  632 IDPOO/  QUDC/MSRC/UT IL/  INTEW“ 
SELECT  632IDPOO/qUIK/MSRC/UTIL/INTERPGC 
SELECT  632IDPOO/QUIK/MSRC/UTIL/ INTPIECE 
SELECT  632IDPOO/QUIK/SOURCE/UTIL/IORFL 
SELECT  632IDPOO/QUIK/MSRC/UTIL/IPUT 
SELECT  632IDPOO/QUIK/MSRC/UTIL/ISOFF 
SELECT  632IDP00/QUIK/MSRC/UTIL/ITLE 
SELECT  632IDP00/QUIK/MSRC/UTIL/IWANT 
SELECT  632IDPOO/qUIK/MSRC/UTIL/KEYMAKE 
SELECT  632IDP00/QUIK/MSRC/UTIL/LATBT 
SELECT  632IDPOO/QUIK/SOURCE/UTIL/LINKUP 
GMAP  DECK 
FILE  C*,X1S 

SELECT  631IDPOO/QUIK/MSRC/UTIL/LOCF 
FORTY  DECK, MAP, XREF 
FILE  C*,X1S 

SELECT  632IDPOO/QUIK/MSRC/UTIL/LOCREAD 
SELECT  632IDPOO/qUIK/MSRC/UTIL/LREORDER 
SELECT  632IDP00/QUIK/MSRC/UTIL/MAPEDGE 
SELECT  632IDP00/QUIK/MSRC/UT1L/NEXTAPE 
SELECT  632IDPOO/QUIK/MSRC/UTIL/MODIRC 
SELECT  632IDPOO/(?JIK/MSRC/UTIL/NUMDEL 
SELECT  632IDPOO/QUTK/MSRC/UTIL/NUMGET 
SELECT  632IDPOO/QUIK/SOURCE/UTIL/OFVAL 
SELECT  632IDP00/QUIK/MSRC/UTn7OPENSPL 
SELECT  632IDPOO/QUIK/MSRC/UTIL/ORDER 
SELECT  632IDPOO/QU1K/MSRC/UTIL/OUTBFDK 
SELECT  632IDPOO/QUIK/MSRC/UTIL/OUTBFTP 
SELECT  632IDPOO/QUIK/MSRC/UTIL/OUTDF 
SELECT  632IDPOO/QUIK/MSRC/UTIL/OUTERDK 
SELECT  632IDPOO/QUIK/MSRC/UTIL/OUTERTP 
SELECT  632IDPOO/QUIK/MSRC/imL/PAGESKP 
SELECT  632IDPOO/QUIK/MSRC/UTIL/PIECEIT 
SELECT  632IDPOO/QUIK/MSRC/UTIL/PIECENUM 
SELECT  632IDPOO/QUIK/MSRC/UTIL/PLTTIC 
SELECT  632IDPOO/qUIK/SOURCE/UTIL/PRIMHD 
SELECT  632IDPOO/QUIK/SOURCE/UTIL/PSREC 
SELECT  632IDPOO/QUIK/MSRC/UTIL/RANF 


SELECT  632 IDPOO/ QUDC/MSRC/UTIL/RANFSET 


$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/RDARRAY 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/REORDER 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/RLBRT 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/SETHEAD 

$ 

GMAP 

DECK 

$ 

FILE 

C*,X1S 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/SETORD 

$ 

FORTY 

DECK, AMP, XREF 

$ 

FILE 

C*,X1S 

$ 

SELECT 

632 IDPOO/QUIK/MSRC/UTIL/SETREAD 

$ 

SELECT 

6 32 IDPOO/ QUIK/ SOURCE/UTIL/ SETSCH 

$ 

SELECT 

632IDPOO/quIK/MSRC/UTIL/SKIP 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/SLOG 

$ 

SELECT 

53 2 IDPOO / QU  DC / SOURCE /UTIL/ SORT IT 

$ 

SELECT 

632IDP00/QUIK/MSRC/UT1L/SSKPC 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/STD 

$ 

GMAP 

DECK 

$ 

FILE 

C*,X1S 

$ 

SELECT 

632IDP00/QUIK/SOURCE/UTIL/SVTP 

$ 

FORTY 

DECK, MAP, XREF 

$ 

FILE 

C*,X1S 

$ 

SELECT 

6 32 IDPOO/ QUDC/MSRC/UTIL/TAN 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/TERMTAP 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/TICMAKE 

$ 

SELECT 

632IDP00/QUIK/MSRC/UTIL/TIMEDAY 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/TIMEME 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/TOFM 

$ 

SELECT 

632IDPOO/C^IK/SOURCE/UTIL/UNCODE 

$ 

SELECT 

632IDPOO/QUK/SOURCE/UTIL/VALFND 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/VALTAR 

$ 

SELECT 

632IDPOO/QUIK/MSRC/UTIL/XCOORD 

$ 

SELECT 

632 IDPOO/ QUIK/ SOURCE/UT IL/XMATH 

$ 

SELECT 

632IDPOO/QUIK/SOURCE/UTIL/XWHERE 

$ 

SELECT 

632IDP00/QUIK/MSRC/UTIL/ ZTAN 

$ 

UTILITY 

$ 

LIMITS 

10,32K, ,60K 

$ 

FUTIL 

BB,CC,RWD/BB/,C0PY/1R/ 

$ 

FUTIL 

AA , CC , RWD/ AA/ , COPY/ 1 F / 

$ 

FUTIL 

BB, CC , RWD/BB/ , SK IP/ IR/ , COPY/ IR/ , RWD/CC/ 

$ 

FILE 

AA,X1S,100L 

$ 

FILE 

CC,X4S,100L 

$ 

DATA 

BB,,COPY 

$ 

INCLUDE 

$ 

ENDEDIT 

$ 

ENDCOPY 

Figure  196. 
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APPENDIX  C 


PERFORM  PROGRAM 


This  appendix  contains  maintenance  Information  for  the  PERFORM  program. 
PERF(®M  Is  an  on-line  program  designed  to  generate  remote  job  entry 
jobs  for  the  QUICK  system. 


C. 1 Purpose 

PERFORM  Is  an  on-line  Interactive  program  which  creates  a file  of  Job 
Control  Language  (JCL)  according  to  user  directions.  This  file  of  JCL 
may  be  set  up  to  perform  any  combination  of  the  following  functions: 

o Run  QUICK 

o Recompile  a module  of  QUICK  and  recreate  the  QUICK  H*  file 
o Recompile  and  recreate  the  QUICK  uttlllty  subroutine  library 

C.2  Input 

PERFORM  is  an  interactive  system  and,  therefore,  obtains  part  of  its 
input  from  user  responses  from  the  terminal.  PERFORM  also  has  three 
files  (or  sets  of  files)  which  it  uses  to  build  the  job  stream  JCL. 


o A set  of  files  each  of  which  contains  the  JCL  required  to  define 
a module  and  its  linkage  from  object  files.  These  files  are  all 
under  the  catalogue  6311DPOO/TEST/COP/CANOF 

o A set  of  files  each  of  which  contains  the  JCL  required  to  define 
a module  and  its  linkage  from  source  flies.  These  files  are  all 
under  this  catalogue  631IDPOO/TEST/COP/NEWCANOF 

o A file  (631IDPOO/PERFORM/VRBL1M)  which  details  the  various  re- 
quired limits  for  the  system  and  which  contains  one  record  for 
each  legal  verb: 


- Word  1 

- Word  2 

- Word  3 

- Word  4 


Verb  Name 
Maximum  CPU  Time 
Maximum  Core  Requirements 
Maximum  Lines  of  Output 


C. 3 Output 


As  output,  PERFORM  creates  a file  of  JCL  in  ASCI  format.  This  file 
(631IDPOO/THEJOB)  is  left  in  the  Active  File  Table  (AFT)  so  that  the 
user  may  immediately  submit  the  job  using  the  CARDIN  subsystem. 
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PERFWIM  follows  a series  of  steps  at  user  direction.  For  details  of  the  ■ 

question  and  answer  sequences  see  Users  Manual,  Volume  I.  Based  on  the 
selection  of  'MODE,'  PERFORM  generates  either  the  compile  or  the  run  JCL 
on  file  THE  JOB  or  both.  For  the  compile  JCL,  PERFORM  asks  for  a list 
of  the  modules  changed.  Then  PERFC®M  goes  through  the  list  of  all  mod- 
ules. For  each  module  In  the  list  of  those  changed,  PERFORM  adds  a 
file  from  the  NEWCANOF  catalogue.  For  each  module  not  in  the  list  of 
changed  modules,  PERFORM  adds  a file  from  the  CANOF  catalogue.  If 
'UTILITY'  is  selected  as  a module  change,  the  file  CANOF/UTIL  is  added 
also.  After  all  compile  JCL  has  been  setup,  the  user  is  asked  if  a run 
is  also  desired. 

For  the  run  mode,  the  file  CANOF /RUN  is  added.  Then  the  user  supplies 
a list  of  the  verbs  being  used.  From  this  list,  PERFORM  uses  the  in- 
formation stored  on  file  VRBLIM  to  compute  the  LIMITS  card  parameters. 

The  user  may  alter  these.  Then  the  user  is  requested  to  add  data  files 
and/or  lines  of  input.  Finally,  the  LIMITS  card  and  other  final  cards 
are  added  and  the  user  is  instructed  as  to  how  to  submit  the  job. 

C . 5 Major  Subroutine 

PERFORM  has  only  one  subroutine  READIN.  This  subroutine  scans  the  user 

input  and  converts  any  lower  case  ASCI  letters  to  upper  case  ASCI  let-  i 

ters.  3 

C.6  Common  Blocks  ^ 

PERFORM  has  only  one  common  block  LINE.  This  block  contains  the  array  3 

LINE(80)  which  is  used  to  communicate  with  subroutine  READIN.  Each  word 
of  LINE  contains  one  character  of  input. 


910 


PURPOSE; 


To  build  JCL  through  on-line  interaction 


I 


ENTRY  POINTS:  

FORMAL  PARAMETERS:  None 

COmON  BLOCKS;  LINE 

SUBROUTINES  CALLED:  READIN 

CALLED  BY:  Entered  through  TSS  subsystem  YFORT 

Method: 

First  the  file  THEJOB  is  attached  and  the  IDENT  card  added  to  it.  Next 
the  mode  is  requested.  If  the  reply  is  'RUN' , skip  to  statement  200 
(figure  197).  If  the  reply  in  'CCMPILE'  the  program  asks  for  a list  of 
the  modules  changed.  A reply  of  'HELP'  will  list  the  modules.  A reply 
of  'UTILITY'  or  'UTIL'  causes  ' 631IDPOO/TEST/COP/CANOF/UTIL'  to  be  added 
to  THEJOB.  Now  the  program  goes  through  all  modules  adding  files  from 
the  CANOF  catalogue  for  unchanged  modules  and  from  the  NEWCANOF  catalogue 
for  changed  modules.  Then  the  user  is  asked  if  run  mode  is  desired.  If 
not  skip  to  statement  300  (figure  197). 

Statement  200 

CANOF /RUN  is  added  to  THEJOB.  The  VRBLIM  file  is  attached,  read  in  and 
detached.  The  user  now  inputs  a list  of  the  desired  verbs.  If  the  reply 
is  'HELP',  the  legal  verbs  are  listed.  The  program  now  calculates  the 
run  limits.  The  limits  are  displayed  and  the  user  given  the  opportunity 
to  change  them.  Now  the  user  is  asked  to  input  data  file  names.  Each 
file  name  is  added  to  THEJOB.  When  the  reply  'DONE'  Is  encountered,  the 
user  is  asked  if  additional  data  is  desired.  If  the  reply  is  no,  skip 
to  statement  300.  Otherwise  the  user  is  asked  to  input  card  images  which 
are  added  to  THEJOB.  When  a blank  card  is  input  the  user  is  asked  if 
additional  files  are  desired  and  if  so  control  returns  to  the  input  of 
data  files. 

Statement  300 

The  LIMITS  card  is  added  to  THEJOB  plus  any  final  cards  and  the  user  is 
instructed  as  to  how  to  execute  the  JCL. 
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START 


Figure  197.  Program  PERFORM  (Part  1 of  8) 
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Figure  197.  (Part  5 of  8) 
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Figure  197.  (Part  6 of  8) 
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C.8  Subroutine  READIN 
PURPOSE; 

ESTRY  POINTS; 

FORHRL  PARAMETERS; 


To  convert  lower  case  to  upper  case 
READIN 
V; 

FLAG: 


Varlabla  In  which  first  eight  characters  may 
be  returned 

=1,  return  first  eight  characters  in  V. 

^(1,  do  not  alter  V. 


COMMON  BLOCKS;  LINE 

SUBROUTINES  CALLED;  NONE 
CALLED  BY;  PERFORM 


Method ; 

LINE  is  filled  from  the  user 'input  replay.  Each  character  is  then  exam- 
ined and  converted  to  upper  case  if  It  Is  lower  case.  FLAG  is  checked 
and  if  equal  to  1,  the  first  eight  positions  of  LINE  are  encoded  into  V. 

Subroutine  READIN  is  illustrated  in  figure  198. 
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external  to  QUICK. 

The  Program  Maintenance  Manual  consists  of  four  volumes  which  facilitate 
maintenance  of  the  war  gaming  system.  This  volume.  Volume  I,  provides  the  pro- 
grammer/analyst with  a technical  description  of  the  purpose,  functions,  general 
procedures,  and  programming  techniques  applicable  to  the  modules  and  subroutines 
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20.  ABSTRACT  (Cont'd) 

of  the  Data  Management  Subsystem.  ' - 

The  Program  Maintenance  Manual  complements  the  other  QUICK  Computer  Manuals 
to  facilitate  application  of  the  war  gaming  system.  These  manuals  (Series  9-77 
for  Volumes  I & II,  Series  9-74  for  Volumes  III  fc  IV)  are  published  by  the 
Command  and  Control  Technical  Center  (CCTC),  Defense  Communications  Agency  (DCA), 
The  Pentagon,  Washington,  DC  20301. 
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